





























Western Electric Company Division 3 Chapter 1 

Warrenvllle Data Center 1. Section 1 

PROGRAMMING S & R MANUAL Issue 1 Date 11/30/73 



DATA PROCESSING SYSTEM PROGRAMMING AIDS 
FUNCTION/AID CROSS REFERENCE 
SECTION 1 - GENERAL 



1. INTRODUCTION 

1.1 The Functiort/Aid Cross Reference List (Appendix A) was designed to 
assist the user in locating, by function , information pertaining 

to cataloged procedures, commercial software products, IBM utility 
programs, and WE macros, utility programs and subroutines, contained in 
chapters of this Division. 

1.2 The functions are arranged in alphabetical sequence and each contains 
a list of programming aids available. The aids are identified by 

a section code, footnoted at the bottom of each page, and its name. 

The section code identifies the Chapter and Section in which the named 
aid is found and/or indexed for reference to its specific location. 

1.3 Many functions indicate the availability of one or more programming 
aids and/or type of programming aid. The sequence in which the 

programming aids are listed is alphabetically by aid name and type of 
programming aid and is not intended to be a recommendation or a preference 
for Use of the first stated aid. The user will have to determine which 
aid is best suited for the application being considered. 
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FUNCTIQN/AID CROSS REFERENCE LIST 

abnormal termination of a JOB: (PG) WEABEND; (SR) GETOATE 

ADO MEMBERS: (CP) CHORDS; (IBM) lEBUPDAT, lEBUPDTE 

ALGOL programming LANGUAGE: 

COMPILE A SOURCE PROGRAM: (CP) ALGOFC 

COMPILE AND EXECUTE USING THE IBM LOADER: (CP) ALGOFCG 

COMPILE AND LINKAGE EDIT: (CP) ALGQFCL 

COMPILE, LINKAGE EDIT, AND EXECUTE: (CP) ALGOFCLG 

APPLY’AN INTERVAL TO: 

A FIVE DIGIT FISCAL DATE (YYWWD): (SR) CMPDATE5 
A SIX DIGIT CALENDAR DATE (YYMMOD): (SR) CMPDATE6 


ASSEMBLER~F PROGRAMMING LANGUAGE: 

COMPILE A SOURCE PROGRAM: (CP) ASMFC 

COMPILE AND EXECUTE USING THE IBM LOADER: (CP) ASMFCG 

COMPILE AND LINKAGE EDIT: (CP) ASMFCL 

COMPILE, LINKAGE EDIT, AND EXECUTE: (CP) ASMFCLG 

ASSIGN SEQUENCE NUMBERS: (IBM) IE6UPDAT, lEBUPOTE 

BLANKS, REMOVE LEADING: (SR) ADJUSTL 


BLOCK 

BUILD 

BUILD 


SIZE, CHANGE: (CP) WECOPY; (PG 
A GENERATION DATA GROUP INDEX: 
AN INDEX OR AN INDEX ALIAS: (I 


) WECOPY, WEC0PY2 
(IBM) lEHPROGM 
BM) lEHPRGGM 


CALCULATE DIRECT ACCESS: 

SORT WORK SPACE; (CP) SORTSPACJ (PG) SORTSPAC 
SPACE UTILIZATION: (CP) DASPACE; (PG) DASPACE 

CALENDAR DATE: 

APPLY AN INTERVAL TO: (SR) GMP0ATE6 
CONVERSION: (SEE DATE CONVERSION) 


CARO TO StANOARD LABEL TAPE WITH CATALOGING: (CP) WECT 
CATALOG: 

A DATA SET: (IBM) lEHPROGM 
A GENERATION DATA SET: (IBM) lEHPROGM 

CHANGE: 

BLOCK SIZE: (PG) WECOPY, WEC0PY2 

LOGICAL RECORD LENGTH OF A DATA SET: (IBM) lEBGENER 
ORGANIZATION OF A DATA SET:(ISMJ lESUPDTE 





CP - CATALOGED PROCEDURE# CH-5 M - MACRO, CH.4 

CSP - COMM* SOFTWARE PROD-, CH.2, SEC.3 PG ~ W.E. PGM., CH.2, SEC.2 

IBM - IBM OS UTIL. PGM. , CH.2, SEC.i SR - SUBROUTINE, CH.3 
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FUNCTION/AID CROSS REFERENCE LIST ICONT.) 

COBOL PROGRAMMING LANGUAGE; 

COMPILE A SOURCE PROGRAM: (CP) CCBUC 

compile and execute USING THE IBM LOADER: CCP) COBUCG 
COMPILE AND LINKAGE EDIT: (CP) COBUCL 

COMPILE AND OPTIMIZE OfiJECT module; (CP) COBUOPT; (CSP) OPTIMIZER 11 
COMPILE, LINKAGE EDIT, AND EXECUTE: (CP) CQBUCLG 
CONVERT COBCL-F TO ANS COBOL: (CP) META; (CSP) METACOBOL 
LINKAGE EDIT AND EXECUTE: (CP) COBLG 


COMPARE DISK AND DISK, TAPE AND TAPE: (IBM) lECOMPR 

COMPILE A SOURCE PROGRAM: (CP) ALGCFC, ASMFC, GD6UC, FORTGC/FORTHC, 
PLILFC, RPGEC 

COMPILE AND EXECUTE A SOURCE PROGRAM USING THE IBM LOADER: 

(CP) ALGOFCG, ASMFCG, COBUCG 

COMPILE AND LINKAGE EDIT A SOURCE PROGRAMS (CP) ALGOFCL, ASMFCL, 
COBUCL, FORTGCL/FORTHCL, PLIFCL, RPGECL 


compile AND OPTIMIZE OBJECT MODULE: (CP) COBUOPT? (GSP) OPTIMIZER II 

COMPILE, LINKAGE EDIT, AND EXECUTE A SOURCE PROGRAM: (CP) ALGOFCLG, 
ASMFCLG, COBUCLG, FORTGCLG/FCRTHGLG, PLILFCLG, RPGECLG 

COMPRESS A DATA SET: (CP) COMPRESS; (IBM) lEBCOPY 

CONOITION CODE: 

PASS: (SR) GETDATE 
SET: (SR) GETDATE 


CONNECT VOLUMES; (IBM) lEHPROGM • 

CONSOLE OPERATOR, COMMUNICATION WITH: (PG) WEWTOR 
CONVERSION, GENERAL. MEDIA: (PG) WECOPY, WEC0PY2 
CONVERT: 

CALENDAR ANO FISCAL OATES FROM A USER SUPPLIED JULIAN DATE: (SR) GETDATE 
COBOL~F SOURCE PROGRAMS TO ANS COBOL: (CP) META? (CSP) METACOBOL 
FIVE DIGIT FISCAL DATE (YYWWD) TO JULIAN FORMAT (YYODD) : (SR) FISCALWK 

FIVE DIGIT FISCAL DATE (YYWWD) TO SIX DIGIT CALENDAR DATE (YYMMDO): 

(SR) CVOATE 

INDEXED SEQUENTIAL TO SEQUENTIAL: (IBM) lEBDG, lEBlSAM 
PARTITIONED DATA SET TO SEQUENTIAL DATA SET: (IBM) IE8IJPDTE 
SEQUENTIAL DATA SET TO PARTITIONED DATA SET: (IBM) IEBGENER,IEBUPDTE 
SIX DIGIT CALENDAR DATE (YYMMDD) TO JULIAN FORMAT (YYDOD).: (SR) CALENDAR 
SIX DIGIT CALENDAR DATE (YYMMDD) TO SIX DIGIT FISCAL DATE 
(SR) CVDATE6F 

SIX DIGIT FISCAL DATE (YYMMWO) TO JULIAN FORMAT (YYDCD) 

SIX DIGIT FISCAL DATE (YYMMWD) TO SIX DIGIT CALENDAR DATE 

(SR) CVDATEF6 


(YYMMWD): 

(SR) FISCALPD 
(YYMMDD): 


CP - CATALOGED PROCEDURE, CH.B M - MACRO, CH,4 

CSP - COMM. SOFTWARE PROD., CH.2, SEC.3 PG - W.E. PGM., CH.2, SEC-2 

IBM -IBM CS UTIL. PGM., CH.2, SEC.l SR - SUBROUTINE, CH.3 
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FUNCTION/AIO GROSS REFERENCE LIST tCONT.j 

COPY: (ALSO SEl MOVE) 

A CATALOG; (CP) MOVE; (I CM) IEHMOVE 

A MEMBER OF A PART ITlONED DATA SET: (IBM) lEBCOPY; (PG) WECOPY, WEC0PY2 
A PARTITIONED DATA SET: (lEM) lEBCOPY, IEHMOVE 
A SEQUENTIAL DATA SET: (IBM) lEBGHNER 
(PG) WECOPY, WEC0PY2 
VOLUME OF DATA SEIS: (IBM) IEHMOVE 

{ IBM) 


lEBUPDTE, IEHMOVE; 


lEBISAM 


(IBM) IEHMOVE 


A 

AN INDEXED SEQUENTIAL DATA SET: 

CARD TO disk: (ISM) lEBGENER 
CARD TO PRINTER: (IBM) lEBGENER 
CARD TO PUNCH; (IBM) lEBPTPCH 
CARD TO TAPE: (IBM) lEBGENER 
CATALOGED SEQUENTIAL DATA SETS: 

CONSOLE JCL DECKS: (CP) OPRPNCH 
DIRECT ACCESS FILES, CATALOGS, PDS MEMBERS 
DISK TO disk: (IBM) lEBCOPY, lEBUPOTE 
DUMPED DATA FROM TAPE TO DIRECT ACCESS: (IBM) 
JOB STEPS: ( IBM) lEBEDIT 

LOAD MODULES, PROCEDURES, OR CONTROL RECORDS: 
MEMBERS: (IBM) lEBGENER, lEBUPDAT, lEBUPDTE 
MEMBERS OR DATA SETS: (IBM) lEBUPDTE 
SELECTED MEMBERS: (IBM) lEBCOPY, IEHMOVE 
SELECTED RECORDS OF A SEQUENTIAL DATA SET: (PG) 


(CP) MOVE 


lEHDASDR 


CCP) MOVE 


WECOPY, WEC0PY2 


CORE REQUIREMENTS, REDUCTION ACHIEVED BY SUBSTItUt1ON OF EFFICI ENT 
CODE: (CP) COBUQPT; (CSP) OPTIMIZER H 

CREATE: 

A BACK-UP COPY OF A DATA SET: { IBM) IEBCQPY, lEBGENER 
A MEMBER: (IBM) lEBDG 

A SEQUENTIAL BACK-UP COPY: (IBM) lEBISAM 
A SEQUENTIAL OUTPUT DATA SET: (IBM) lEBDG 
AN index: (IBM) lEHPRQGM 

AN INDEXED SEQUENTIAL DATA SET: (IBM) lEBISAM 
AN INPUT STREAM: (IBM) lEBEDIT 

AN OUTPUT DATA SET CONTAINING A SELECTION OF JOBS OR JOB STEPS: 

(IBM) lEBEDIT 

AN OUTPUT JOB STREAM: (IBM) lEBEDIT 

AN OUTPUT TEST DATA SET: (IBM) lEBDG 

AND UPDATE SYMBOLIC LIBRARIES: (IBM) lEBUPDTE 

USER LABELS ON SEQUENTIAL OUTPUT DATA SETS: (IBM) lEBGENER 

DATA BASE / DATA COMMUNICATION SYSTEM: (CSP) IMS ID8 C DB/DC) 

DATA RETRIEVAL / REPORT FORMATTING SYSTEM: (CP) REACT; (CSP) RE-ACT 
DATE CONVERSION: 

CALENDAR AND FISCAL DATES FROM A USER SUPPLIED JULIAN DATE: (SR) GETDATE 
FIVE DIGIT FISCAL (YYWWD) TO JULIAN FORMAT (YYDDD): (SR) FISCALWK 
FIVF DIGIT FISCAL (YYWWD) TO SIX DIGIT CALENDAR (YYMMDD): (SR) CVDATE 
SIX DIGIT CALENDAR (YVMMOD) TO JULIAN FORMAT (YYDDD): (SR) CALENDAR 
SIX DIGIT CALENDAR (YYMMDD) TO SIX DIGIT FISCAL (YYMMWD): (SR) CVDATE6F 
SIX DIGIT FISCAL (YYMMWD) TO JULIAN FORMAT (YYDDD): (SR) FISCALPD 
SIX DIGIT FISCAL (YYMMWD) TO SIX DIGIT CALENDAR (YYMMDD): (SR) CVDATEF6 


CP - CATALOGCO PROCEDURE, CH-5 

CSP - COMM. SOFTWARE PROD., CH.2, SEC.3 

IBM - IBM CS UTIL. ^GM-, CH.2, SEC.l 


M - MACRO, CH.4 

PG - W.E. PGM., CH.2t SEC.2 

SR - SUBROUTINE, CH-3 
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FUNCTION/AID CROSS REFERENCE LIST CCONT.I 
DATE MANIPULATION: ISR) GETDAT6 

DATES COMPUTED FROM A USER SUPPLIED JULIAN DATE (YYOOD): (SR) GETDATE 
DEBUGGING AIDS: (SEE DUMP) 

DELETE: 

AN INDEX STRUCTURE: (IBM) lEHPRCGM 
DATA SETS: (PG) DELETE 

RECORDS: { IBM) lEBUPDAT, leBUPDTE: IPG) WEC0PY2 
DIRECT ACCESS: 

FILE DUMP LISTING: (CP) DADUMP 

SORT WORK SPACE, CALCULATE: ICP) SORTSPACi (PG) SORTSPAC 
SPACE UTILIZATION, CALCULATE: (CP) DASPACE; (PG) DASPACE 
UTILITY SORT: (CP) DASCRT 

DISK DATA SET INFORMATION: (PG) SLIST 

DIVIDE A DATA SET: (PG) WESELECT 


DUMP: 

A GROUP OF TRACKS: (IBM) lEHDASOR 

AN ENTIRE DIRECT ACCESS VOLUME: (IBM) lEHOASDR 

CALLABLE SYSUDUMP TYPE CORE DUMP: (SR) WE5NAP 

DIRECT ACCESS FILE LISTING: (CP) DADUMP; IPG) WEDEBEPT 

TAPE AND DISK FILES: (PG) WEDEBEPT 

TAPE LISTING: (CP) TPDUMP; (PG) WEDEBEPT 

DYNAMIC DEBUGGING INFORMATION FACILITY; (M) DEBUG 

EDIT: 

AND CONVERT TO PARTITIONED: (IBM) lEBGENER, lEBUPOTE 
AND COPY A JOB STREAM: (IBM) lEBEDIT 

AND COPY A SEQUENTIAL DATA SET: (IBM) lEBGENER, lEBUPDTE 
AND PRINT/PUNCH: (IBM) lEBPTPCH 

ENTER A PROCEDURE INTO A PROCEDURE LIBRARY: (IBM) lEBUPOTE 


exclude: 

DISK TO DISK: (IBM 
MEMBERS FROM BEING 
RECORDS FROM BEING 


lEBCOPY 

COPIED: (IBM) lEBCOPY 
COPIED: (PG) WECOPYZ 


lEHMDVE 


expand: 

A PARTITIONED DATA SET: (IBH) lEBCOPY, lEBGENER 
A SEQUENTIAL DATA SET: (IBM) lEBGENER 
DISK TO DISK: (IBM) IE3CQPY 
OR COMPRESS: (IBM) lEBGENER 


EXTRACT DESIRED RECORD TYPES: (PG) WESELECT 


CP - CATALOGED PROCEDURE, CH.5 M - MACRO, CH.4 

CSP - COMM. SOFTWARE PROD., CH.2, SEC.3 PG ~ W.E- PGM., CH.2, SEC.2 

IBM - IBM DS UTIL, PGM., CH.2, SEC.1 SR - SUBROUTINE, CH.3 
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REFERENCE LIST (CONT.) 


-F -— 

FIELD SIZEt lengthen/shorten: (SR) ADJUSTL 
FISCAL DATE: 

APPLY AN INTERVAL TO: (SR) CMPDATES 
CONVERSION: (SEE DATE CONVERSION) 

FLOWCHART SOURCE LANGUAGE STATEMENTS: (CP) AUTOFLOW; ICSP) AUTOFLOW 

FORCE ABNORMAL TERMINATION OF A JOB: (PG) WEABEND 

FORMATTING FILES FOR TRANSMISSION: (SR) PUTTMT 

FORTRAN (G S H) PROGRAMMING LANGUAGE: 

COMPILE A SOURCE PROGRAM: (CP) FORTGC/FORTHC 
COMPILE AND LINKAGE EDIT: (CP) FORTGCL/FQRTHCL 
COMPILEf LINKAGE EDIT, AND EXECUTE: (CP) FORTGCLG/FCRTHCLG 
LINKAGE EDIT AND EXECUTE: (CP) FORTLG 

GENERAL MEDIA CONVERSION: (PG) WECOPY, WEC0PY2 


GENERATE: 

FLOWCHART, SOURCE LISTING, AND CROSS REFERENCE LISTING: 

(CP) AUTOFLOW; (CSP) AUTOFLOW 

INSTRUCTIONS FOR RESTORING GENERAL REGISTERS AND RETURN CONTROL TO 
THE CALLING PROGRAM: (M) EXIT 

INSTRUCTIONS REQUIRED AT THE BEGINNING OF AN ASSEMBLER LANGUAGE 
PROGRAM: (M) ENTER 
TEST DATA: (IBM) lEBDG 

GENERATION DATA GROUP INDEX, BUILD A: (IBM) TEHPROGM 

GET ALTERNATE TRACKS ON, A DIRECT ACCESS VOLUME: 

(IBM) lEHATLAS, lEHDASDR 

INITIALIZE A DIRECT ACCESS VOLUME: (IBM) lEHOASDR 

INSERT RECORDS: (IBM) lEBUPOTE 

ISAM FILE.INFORMATION: (PG) LYNETTE 

ISSUE '’RESERVE** FOR UPDATING: 

PUBLIC CARD IMAGE LIBRARIES: (PG) ATTUPDTE 

PUBLIC LIBRARIES: (PG) ATTCOPY 

PUBLIC LOAD MODULE LIBRARIES: (PG) ATTIEWL 


JCL CONSOLE DECKS, COPY: (CP) OPRPNCH 

JULIAN FORMAT (YYDDD) CONVERSION: (SEE DATE CONVERSION) 


CP - CATALOGED PROCEDURE, CH.5 M - MACRO, CH,4 

CSP - COMM. SOFTWARE PROD,, CH.2, SEC-3 PG - W.E. PGM., CH.2* SEC-2 

IBM - IBM OS UTIL. PGM., CH.2, SEC.l SR - SUBROUTINE, GH.3 
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FUNCTION/AID CROSS REFERENCE LIST (CONT.) 

librarian: 

GENEKALUEU data storage and RETKU-VAL system: (CSP) librarian 

PARTITIONED DATA SET UUTPUT: (CP) Li BP i 

SELUhNTlAL OUTPUT: (CP) LIES | 

utility procedure: (CP) LIBU 

LINK EDIT AND PRODUCE A LOAD MODULL: (CP) LKED 

LINK EDIT, PKOuUCE A LOAD MODULE, AND EXECUTE: (CP) LKEUG 

LIST {ALSO SEE PRINT ): 

A MEMBER OF A CARD IMAGE PARTITIONED DATA SET: (CP) LISTGUT 
A VOLUME table of CONTENTS: (IBM) lEHLIST 
ATTRIBUTES FDR DIS^ DATA SETS: (CP) LISTDISK; (Pu) SLIST 
catalogs: (CP) LIST, WELIST; (IBM) ILMLIST 

CONTENTS UF A DIRECT ACCESS VOLUME AND ATTRIBUTES OF DIRECT ACCESS 
DATA SETS: (CP) LISTDISK 

CONTENTS OF ALL MEMBERS OF A PARTITIONED DATA SET: (CP) LISTPDS 
CONTENTS OF TAPE LIBRARY SYSTEM BIN TABLE: (CP) TLSbINL | 

ENTRIES IN A catalog: (IBM) lEHLlST 

ENTRIES IN A VOLCME TABLE OF CONTENTS: (CP) WELIST*. (IBM) lEFiLIST 
ENTRIES IN THE DIKECTURIES OF ONE OR MORE PARTITIONED DATA SETS: 

(IBM) lEHLlSl 

NUMSFR UF UNUSED DIRcClORY BLOCKS AND TRACKS: (IbM) lEECOPY 
PARTlTiCNEO UATA SET LiIREC TURIES: fCP)LlST, WELIST; (IBM) lEHLIST 
TABLE OF CUNTtNlS OF A DISK PACK: (CP) LISTDISK . 

VOLUME TABLE OF CONTENTS OF TtTE SYSTEM RESlDENl PACK: (CPI LIST, WELIST 

load: 

AN UNCAlALuGEO DATA SET: (IBM) ItllMOVE 
TAPE TU disk: (IBM) lEBISAM 

LOGICAL RECORD LENGTH, E;EDUCE: (PG) WECOPY, WECQPY2 

MEASURE EFFICIENCY OF PROBLEM PROGRAM: (CP) PPANAL,PPEXT; (CSP)SMS/36C 
MEDIA CONVERSION, GENERAL: (PG) WECCPY , WEC0PY2 

merge: 

PARTI fICNED data SETS*- (IBM) lEbCCPY, lEHMOVE 
records: (CP) DASGkT; (CSP) SORT/HLRGl SMI 

MODIFY■AN EXISTING data SET: (IBM) lEBUPDTE 

MOVE (ALSO SEE CLPV): 

A CATALOG: (il!*i) iE^irifiVE . 

A GROUP OF CAiALUot-l DATa ^ETS: (IBM) TEiTMDVE 
A VOLUi‘;i OF DATA SlIS: (IBM) ILHMDVE 
PAkTIIIlNED LD'Ta sets: (IbM) IfHMLVE 
SEOUENIIAL OaTa sets: (UM) xehmgve 


CP “ CAfAL-OGcD PRUCrl'UKE, CH.S M — MACRO, CH.A 

CSP CTJ'-M, SDt IWaRE Pi',i)D* , CH«/, Sl:C«3 PG *“ W,L* POM*, CH*2, SEC*2 

IBM - IdM DS util* pom*, CH.?, SFC.i SR - SUDKOUTINl, CH.3 
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REFERENCE LIST (CONT*I 




OBTAIN COPY OF CONSOLE JCL DECKS: ICP) OPRPNCH 

OBTAIN EXEC CARD PARM INFORMATION: ISR) PARMEXCO 

OPTIMIZE OBJECT MODULE: 

ANS COBOL: (CP) C08UQPT; (CSP) OPTIMIZER II 

ORGANIZATIONAL INFORMATION FOR AN ISAM FILE: (PG) LYNETTE 

OUTPUT SUMMARY GENERATION; (CP) WEOUTPUT 

PARM iNFORMATIONt OBTAIN FROM EXEC CARO: (SR) GETOATE, PARMEXCO 

PARM PASSING: (SR) GETOATE 

PL/1 PROGRAMMING LANGUAGE: 

COMPILE A SOURCE PROGRAM: (CP) PLILFC 
COMPILE AND LINKAGE EDIT: (CP) PLILFCL 
COMPILE, LINKAGE EDIT, AND EXECUTE: (CP) PLlLfCLG 
LINKAGE EDIT AND EXECUTE: (CP) PLlLFLG 


PREPARATION FOR UPDATE OF PRODUCTION LIBRARIES: (CP) PLCPREP 
PRINT (ALSO SEE LIST): 

A SEQUENTIAL FILE WITH UNKNOWN CHARACTERISTICS: (CP) DAOUMP, TPDUMP; 
(PG) WEDEBEPT 

AN INDEXED SEQUENTIAL DATA SET: (IBM) lEBISAM 

CARO TO SYSTEM OUTPUT: (IBM) lEBGENER 

FIXED BLOCKED RECORDS OF LENGTHS UNACCEPTABLE TO ASP: 

(PG) WECOPY, WECGPY2 

general PURPOSE REGISTERS AND SELECTED AREAS OF CORE:’ CM) DEBUG 
SELECTED RECORDS: (IBM) lEBPTPCH 

SELECTED RECORDS IN CHARACTER AND/OR HEX FORMAT: (PG> VFPRINT 
TAPE/DISK TO SYSTEM OUTPUT: (IBM) lEBPTPCH 

PRINTER TESTING, ASP RJP WORKSTATION: (PG) WETESTPR 

PROBLEM PROGRAM EFFICIENCY: 

ANALYZER: (CP) PPANAL; (CSP) SMS/360 
EXTRACTOR: (CP) PPEXT; (CSP) SMS/360 

PRODUCE A PARTITIONED DATA SET FROM SEQUENTIAL INPUT: (IBM) lEBGENER 

PRODUCE FLOWCHARTS FROM SOURCE LANGUAGE STATEMENTS: 

(CP) AUTOFLOW; (CSP) AUTOFLOW 


CP - CATALOGED PROCEDURE, CH.5 M - MACRO, CH.4 

CSP - COMM. SOFTWARE PROD., CH.2, SEC.3 PG - W.E. PGM., CH.2, SEC.2 

IBM - IBM US UTIL. PGM., CH.2, SEC.l SR *- SUBROUTINE, CH.3 








REDUCE LOCICAL RECORD LENGTH: (PG) WECOPY, WECQPY2 

REMOVE A GROUP OF RECORDS FROM THE INTERIOR OF A DATA SET: IPGJWECOPY2 

REMOVE LEADING BLANKS AND LEFT ADJUST A FIELD: (SR) AOJUSTL 

RENAME: 

A DATA SET: (IBM) lEHPROGM 

DISK TO disk: (IBM! IE8C0PY 

MOVED OR COPIED MEMBERS: (IBM) lEHMOVE 


RENUMBER RECORDS: (IBM ) IEBUPDAT» IE8UPDTE 

REORGANIZE AN INDEXED SEOUENTIAL DATA SET: (IBM) lEBISAM 

REPLACE: 

IDENTICALLY NAMED DATA SET MEMBERS: (IBM) lEBCOPY 
RECORDS: (IBM) lEBCOPYt lEBUPDAT, lEBUPDTE 

SELECTED MEMBERS IN A MOVE OR COPY.OPERATION:(IBM) IEBCOPY» lEHMOVE 

RESERVE, ISSUE FOR UPDATING: 

PUBLIC CARD IMAGE LIBRARIES: (PG) ATTUPDTE 

PUBLIC LIBRARIES: (PG) ATTCOPY 

PUBLIC LOAD MODULE LIBRARIES; (PG) ATTIEWL 

RESTORE DATA ON DIRECT ACCESS VOLUMES: (IBM) lEHDASOR 



RETRIEVE AND UPDATE CONTROL TYPE RECORDS IN PLACE: (SR) CCRETREV/CCUPDATE 

RPG PROGRAMMING LANGUAGE: 

COMPILE A SOURCE PROGRAM: (CP) RPGEC 

COMPILE AND LINKAGE EDIT: (CP) RPGECL 

COMPILE, LINKAGE EDIT, AND EXECUTE: (CP) RPGECLG 


( 


CP CATALOGED PROCEDURE, CH.B M - MACRO, CH,4 

CSP - CUMM. SOFTWARE. PROD., CH.2, SEC.3 PG - W.E. PGM., CH.2, SEC.2 

IBM - IBM OS UTIL. PGM^, CH.2, SEC.I SR - SUBROUTINE, CH.3 
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FUNCTIDN/AIO CROSS REFERENCE LIST (CDNT.J 


scratch: 

A catalog: (CPT MOD, wEMOU 

A DATA SET CR A MEMEER: (iCM) ILHPRCGM; (PC) DELETE 
A VOLUME TABLE OF LuNTENTS: (IFM) ITriPKOGM 

SELECT: 

AND PRINT KECGRbS IN CHARACTER AfiD/OR HEX FORMAT: IPG) VFPKINT 
MEMBERS TO bE CUPlEt): IEBlDPY 

SPECIFIED records: (PG)WtSELECT 

SET CONDniON code: (SR) G£ TOATE 

SHARING DISK DATA SETS ciLTWELN CPU'S: (PG) ATTCOPY, ATTIEWL, ATTUPDTE 
SORT, CALCULATE DISK WORK SPACE: (CPi SORTSPaC; (PG) SDRTSPaC 
SORT/MERGE: 

records: (CP) DASORT; (CSP) sdkt/merge~smi 

WITH NO ROUTINES UK WITH ROUTINES THAT DO NOT REQUIRE LINK EOIIING: 
(CP) SDRTu 

WITH ROUTINES THAT REQUIRE LINK EDITING: (CP) SORT 
SOURCE program: 

DOLUMENTATiUM: (CP) AUTCFLCW; (CSP) AUTOFLCW 
MAINTEMANCL: (CP) LlbP^ LIES, LIEU; (CSP) LIBRARIAN 

STORAGE OF CARD IMAGE STATEMENTS: (CP) LlBP, LIBS, LIBU; (CSP) LIERARIaN 

SUMMARY LISTING DP PKDLXCTION SYSTEM OUTPUT WHICH KEQUIkES FUkTHER 
processing: (CP) WEnUtPUT 

TAPE: 

dump: ICP) TPDUMP; (PG) wedebept 
TO PRINT: (Pb) WEDEBEPT 

TEXT EDITING AND formatting: (CSP) HITS 

transfer a SOURCE PDS TO A LIBRARIAN DATA SET: (PG) LIBRLIST 

TRANSMISSION files: 

FORMATTING: (SR) PUTTMT 
UNFC;K^iA^ T ING: (SR) GET TMT 


CP - CATALOGUC PKOCtLUKE, CH.5 M - MACHO-,- CH.4 

CSP - COMM, software prod., CH./, SEC.3 PG - W»E. PGM., Crl.<i, SEC.2 

UM ~ IBM OS UTIL. PGM., CH.2, SEC, 1 SR - SUBROUTINE, CH.3 
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LlNCA 

UNFO 

UNLO 

A 

A 

AN 


FUNCTI 
-U 

TALQG DATA SETS: (IBM 
RMATTING TRANSMISSION 


ON/AIO CROSS 

) IEHPROGM; ( 
FILES: I SR) 


REFERENCE LIST ICONT.) 

PG) DELETE 
GETTMT 


AD: 

PARTITIONED DATA SET: UBM) lEHMOVE 
SEQUENTIAL DATA SET: (IBM) I6HM0VE 
INDEXED SEQUENTIAL DATA SET: (IBM) lEBISAM 


UPDATE: 

i ! AN EXISTING CARD IMAGE POS: (CP) CHGPDS 

CONTROL RECORDS IN PLACE: (SR) CCRETREV/CCUPDATE 
IN place: (IBM) lEBUPDTE 

PRODUCTION LIBRARIES^ PREPARATION FOR: (CP) PLCPREP 

VTOC, LIST CONTENTS OF SYSTEM RESIDENT PACK: CCP) LIST, WELIST 

WRITE TO operator: (PG) WEWTOR 





CP ~ CATALOGED PROCEDURE, CH.5 M -■ MACRO, CH.4 

CSP - COMM. SOFTWARE PROD., CH.2, SEC-3 PG - W.E. PGM., CH.2, SEC-2 

IBM - IBM OS UTIL. PGM., CH.2, SEC.l SR - SUBROUTINE, CH.3 




1 


Western Electric Company 
Warrenville Data Center 
PROGRAMMING S 6t R MANUAL 


Division 3 Chapter 2 
Section 1 

Issue 1 Date 4/23/73 


DATA PROCESSING SYSTEM PROGRAMMING AIDS 
UTILITY PROGRAMS 
SECTION 1 - I.B.M. OS UTILITIES 


1. INTRODUCTION 


1.1 I.B.M. Utility Programs are- presented in this Section for the purpose of 

informing the application programmer of the general functions and services 
performed by these programs. This material is not presented as a tutorial on 
I.B.M. Utility Programs, hence, no mention is made of Utility Control Statements, 
Exit Routine Linkage, Invoking Utility Programs, Generation Data Groups, etc. 

For a complete description of I.B.M. Utility Programs and an explanation on how 
to use these programs, refer to I.B.M. Operating System Utilities Manual, 
GC28-6586. 


1.2 The Operating System Utility Programs perform functions to assist programmers 
responsible for creating and maintaining operating system data. These 
functions are requested through control statements, which can be used individually 
or in combination, to perform a variety of housekeeping and support operations. 

The function that the utility program performs and the manner in which the program 
is controlled determines the program class of the utility program, either System 
Utility program or Data Set Utility program. 

2. SYSTEM UTILITY PROGRAMS 

2.1 System Utility programs manipulate collections of data and system control 
information. The programs are used to maintain system control data at an 
organizational or system level. Several programs in this class may be useful to 
an application programmer. The following paragraphs present a brief description 
of the general functions of these programs. 

2.11 lEHDASDR - a program used to prepare direct access volumes for operating 
system use and to ensure that any permanent hardware errors (i.e. , 
defective tracks) incurred on direct access volumes do not seriously degrade the 
performance of those volumes. The program can be used to dump the entire contents 
of a direct access volume to a volume of the same device type, to a tape volume, 
or to a system output device. Data that is dumped to a tape volume is arranged 
so that it can subsequently be restored to its original organization by lEHDASDR. 

2-.12 lEHLIST - a program used to list entries in a catalog, entries in the 
directory of one or more partitioned data sets, or entries in a volume 
table of contents. 

2.13 lEHMOVE - a program used to move or copy collections of data including: 

a. A data set residing on from one to five volumes 

b. A group of cataloged data sets 
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c, A catalog, or portions of a catalog 

d, A volume of data sets 

The scope of a basic move or copy operation can be enlarged by: 

a. Merging members from two or more partitioned data sets 

b. Including or excluding selected members 
G, Renaming moved or copied members 

d. Replacing selected members 

e. Including or excluding data sets from a move or copy operation 

When using the lEHMOVE program, the user should be aware of the difference between 
a move operation and a copy operation. A move operation scratches source data 
(from direct access volumes only) while a copy operation leaves source data intact. 
In addition, for cataloged data sets, a move operation updates the catalog to refer 
to the moved version (unless otherwise specified), while a copy operation leaves 
the catalog unchanged. 

2.14 lEHPROGM - a program used to modify system control data and to maintain 
data sets at an organizational level. The program can be used to; 

a. Scratch a data set or a member 

b. Rename a data set or a member 

c. Catalog or uncatalog a data set 

d. Build or delete an index or an index alias 

e. Connect Or release two volumes 

f. Build and maintain a generation data group index 

g. Maintain data set passwords 

3. DATA SET UTILITY PROGRAMS 

3.1 Data Set Utility programs manipulate partitioned, sequential, or indexed 

sequential data sets provided as input to the programs. Data ranging from 
fields within a logical record to entire data sets can be manipulated. Programs 
in this class and a brief description of the general functions performed by each 
program are presented in the following paragraphs. 

3.11 lEBCOMPR - a program used to compare two identically organized data sets 
at the logical record level. Data sets to be compared can be either 

sequential or partitioned. The program can be used to: 

a. Verify a back-up copy of a sequential or partitioned data set 

b. Verify portions of records within a sequential or partitioned 
data set 

3.12 lEBCOPY - a program used to copy one or more partitioned data sets or to 
merge partitioned data sets. Specified members of partitioned data sets 

can be selected fpr, or excluded from, a copy process. The program can be used to: 

a. Create a back-up copy 

b. Copy data sets 
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c* Select members, from one or more data sets, to be copied 

d. Replace Identically named members on data sets 

e. Replace selected data set members 

f. Rename selected members 

g* Exclude members, from one or more data sets, from being copied 

h. Compress a data set in place 

i. Merge data sets 

j. Recreate a data set that has exhausted its primary, secondary, or 

directory space allocation 

3.13 lEBDG - a program that provides a "pattern" of test data, to be used as a 
programming debugging aid. An output test data set, containing records 

of any format, can be created through the use of utility control statements, with 
or without input data. Sequential, indexed sequential, and partitioned data sets 
can be used for input or output. 

3.14 lEBEDIT - a program that creates an output data set containing a selection 
of jobs or job steps which, at a later time, can be used as an input stream 

for job processing. The output data set is created by editing and selectively 
copying a job stream provided as input. The program can copy: 

a. An entire job or jobs, including JOB statements and associated 
JOBLIB statements, if any 

b. Portions of a job (i.e. , selected job steps), including the JOB 
statement and its associated JOBLIB statement, if any 

3.15 lEBGENER - a program that can copy a sequential data set or a partitioned 
member, or it can create a partitioned data set from a sequential data set 

or from a partitioned member used as input. The program can expand an existing 
partitioned data set by creating partitioned members and merging them into the data 
set that is to be expanded. The program can be used to: 

Create a back-up copy of a sequential data set or a partitioned 
member 

Produce a partitioned data set from sequential input 
Expand an existing partitioned data set 
Produce an edited sequential or partitioned data set 
Reblock or change the logical record length of a data set 
Create user labels on sequential output data sets 

3.16 lEBISAM - a program that can copy an indexed sequential data set directly 
from one direct access volume to another. Alternatively, the program can 

be used to reorganize an indexed sequential data set into a sequential (unloaded) 
data set on a direct access volume or a magnetic tape volume. The unloaded data 
set is in a form that can be converted back into an indexed sequential data set. 

The program can be used to: 

Copy an indexed sequential data set 

Create a sequential back-up copy of source data from an indexed 
sequential data set 

Create an indexed sequential data set from an unloaded data set 
Print an indexed sequential data set 
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3.17 lEBPTPCH - a program that prints or punches all, or selected portions, of 
a sequential or partitioned data set. Records can be printed or punched 

to meet either standard specifications or user specifications. The program provides 
optional editing facilities with each application of the program. The program can 
be used to: 

Print or punch a sequential or partitioned data set in its entirety 
Print or punch selected members from a partitioned data set 
Print or punch selected records from a sequential or partitioned 
data set 

Print or punch the directory of a partitioned data set 
Print or punch an edited version of a sequential or partitioned 
data set 

3.18 lEBUPDAT - a program that incorporates both I.B.M. and user-generated 
source language modifications into symbolic libraries. The program can 

be used to: 

a. Add, copy, and replace members 

b. Add, delete, replace, and renumber the records within an 
existing member 

c. Assign sequence numbers to the records of a new member 

3.19 lEBUPDTE - a program that incorporates both I.B.M. and user-generated 
source language modifications into sequential data sets or into partitioned 

data sets. The program is used to create and update card image libraries, incorporate 
changes to partitioned members or sequential data sets, and change the organization 
of a data set from sequential to partitioned or partitioned to sequential. The 
program can: 

a. Add, copy, and replace members or data sets 

b. Add, delete, replace, and renumber the records within an existing 
member or data set 

c. Assign sequence numbers to the records of a member or data set 

d. Convert sequential input into partitioned output or vice versa 
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DAPA PROCESSING SYSTEM PROGRAMMING AIDS 
UTILITY PROGRAMS 

SECTION 2 - WESTERN ELECTRIC UTILITIES 

1. INTRODUCTION 

1.1 The programs described in this section were developed by Western 
Electric personnel or are programs which were modified by Western 

Electric personnel to meet local processing requirements* 

1.2 In general, this material should enable the user to make effective use 

of these programs. For those programs which call IBM Programsj reference 
is made to an IBM manual where additional information is availa|Dle to the user. 


1.3 For many programs, reference is made to a cataloged procedure which 
has been prepared to facilitate use of the program. 

1.4 Appendix A, Western Electric Utility Program Reference List, directs 
the user to a description of the programs and examples of use. 
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WESTERN ELECTRIC UTILITY PROGRAM REEERENCE LIST 


PROGRAM 

FUNCTION . 

APPENDIX 

PAGE 

ATTCOPY 

Issue "RESERVE” for updating public libraries 

B 

3 

ATTIEWL 

Issue "RESERVE" for updating public load 
module libraries 

C 

4 

ATTUPDTE 

Issue "RESERVE" for updating public card image 
libraries 

D 

5 

CATALIST 

List catalog node points 

X 

39 

“CSUTIL - 

Catalog maintenance 

Y 

41 

DASPACE 

Compute direct access space utilization data 
for fixed length records 

R 

29 

DELETE 

Scratch/Uncatalog data sets 

E 

6 

DPMPSIL 

List Contents of the PSI table 

S 

32 

LIBRLIST 

Partitioned data set to librarian data set 

Q 

27 

LYNETTE 

ISAM file information 

F 

7 

SLIST 

Disk data set information 

G 

8 

SORTSPAC 

Calculate direct access sort workspace 

H 

9 

TRMUST06 

Check for entries in a generation data group 

W 

38 

VFPRINT 

Selective print dump 

P 

24 

WEABEND 

Force abnormal termination 

I 

11 

WECOPY 

General media conversion 

J 

12 

WEC0PY2 

General media conversion (modified version 
of WECOPY) 

K 

15 

WEDEBEPT 

Tape and "disk file" dump 

N 

20 

WEMFCOPY 

Multiple file copy 

T 

33 

WESELECT 

Select specified records 

L 

16 

WESFSPRT 

Sequential file selective print 

U 

35 

WETESTPR 

ASP RJP workstation printer testing 

0 

23 

WEWTOR 

Write to operator 

M 

19 

ZEROGORE 

Zero user region in main storage 

V 

37 
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TRMUST06 - CHECK FOR ENTRIES IN A GENERATION DATA GROUP 


1. GENERAL 

1.1 TRMUST06 is a Western Electric utility program developed for 
application systems interfacing with Minl~WEDGE. The function 

of this program is to determine if there are any entries in the 
generation data group specified by the user via a PARM parameter in 
the JCL EXEC statement. 

1.2 An application program can determine if an input file has been 
UNSTACKed by checking a condition code. The condition code 

(General Register 15) is set to zero (0) if relative generation 
zero (O) or other explicitly specified relative generation exists, 
otherwise it is set to 04 with one exception: if a PARM value is 
not supplied by the user, the condition code is set to 08. 

1.3 The program does not make a validity check for a valid GDG 
DSNAME base (or index). 

1.4 The minimum core requirement is 6K. 

2. EXAMPLES OF USE 

2.1 In the following examples, assume ABC.DEF to be the DSNAME base 
(or index) Of a generation data group. 

2.11 // EXEC PGM=TRMUST06,PARM=»ABC.DEF' 

2.12 An equivalent expression to the above example is: 

: // EXEC PGM=TRMUST06,PARM='ABC.DEF(0)' 

2.13 The existence of old generations may also be tested 

// EXEC PGMArRMlJST06,PARM=*ABC.DEF(-2) ' 

The return code will be set to 04 unless nt least three 
generations are cataloged. 

3. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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WESTERN ELECTRIC UTILITY PROGRAM REFERENCE LIST 








PROGRAM 

FUNCTION 

APPENDIX 

PAGE 

ATTCOPY 

Issue "RESERVE" for updating public libraries 

B • 

3 

ATTIEWL 

Issue "RESERVE" for updating public load 
module libraries 

C 

4 

ATTUPDTE 

Issue "RESERVE" for updating public card 
image libraries 

D 

5 

DASPACE 

Compute direct access space utilization data 
for fixed length records 

R 

29 

DELETE 

Scratch/Uncatalog data sets 

E 

6 

DPMPSIL 

List contents of the PSI table 

S 

32 

LIBRLIST 

Partitioned data set to librarian data set 

Q 

27 

LYNETTE 

ISAM file Information 

F . 

7 

SLIST 

Disk data set information 

G 

8 

SORTSPAC 

Calculate direct access sort workspace 

H 

9 

TRMUST06 

Check for entries in a generation data group 

W 

38 

VFPRINT 

Selective Print Dump 

P 

24 

WEABEND 

Force abnormal termination 

I 

11 

WECOPY 

General media conversion 

J 

12 

WECOPY2 

General media conversion (modified version 
of WECOPY) 

K 

15 

WEDEBEPT 

Tape and "disk file" dump 

N 

20 

WEMFCOPY 

Multiple file copy 

T 

33 

WESELECT 

Select specified records 

L 

16 

WESFSPRT 

Sequential file selective print 

U 

35 

WETESTPR 

ASP RJP Workstation Printer Testing 

0 

23 

WEWTOR 

Write to operator 

M 

19 

ZEROCORE 

Zero user region in main storage 

V 

37 
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ATTCOPY - ISSUE ’’RESERVE’' FOR UPDATING PUBLIC LIBRARIES 


GtlNERAL 

1.1 ATTCOPY, a Western Electric program which calls lEBCOPY, is designed 
to insure integrity of partitioned data sets accessible by multiple 

CPU’s. The simultaneous accessing of a disk pack by more than one CPU 
could result in the action of one interferring with the other, resulting 
in lost or destroyed data. Protection of the data sets is provided by ATTCOPY's 
issuance of "RESERVE" for the direct access unit and effectively prevents access 
by other CPUs until the device is "DEQUEUED" by the updating program. 

1.2 ATTCOPY must be used when updating any of the public libraries, for 
example: 

PLC.CONTROL PLG.PROCLIB 

PLC.JCLLIB 
PLC.LOADLIB 


*PRDn.PARMLIB can be updated using CCUPDATE because the update is "INPLACE". 

(See Division 3, Chapter 3, Section 1, Subroutines)- 

2. USING ATTCOPY 

2.1 ATTCOPY issues a "reserve" for the output data set specified in a 
SYSUT2 DD statement, and calls the IBM Utility Program, lEBCOPY. 

2.2 The JCL for executing ATTCOPY is the same as that for executing 
lEBCOPY with the following exception; The output data set must be 

specified on a DD statement with the DDNAME of SYSUT2. The absence of the 

SYSUT2 DD statement will result in a user 0012 abend. 

2.3 Information about using lEBCOPY may be found in the IBM OS Utilities 
Manual, GG28-6586. 

3. PRECAUTIONS 

3.1 Severe system degradation could occur through the unnecessary use of 
reserve as all other CPU’s are locked out of the entire disk pack 

(not just the data set) for as long as the "reserve" is in effect. 


DEV.LOADLIB 

DEVnn.LOADLIB 

*PRDn.PARMLIB 


3.2 Many public cataloged procedures execute programs which issue the reserve. 

do not issue the reserve as they are not designed to update public 
data sets. Programmers must know what programs are executed by the procedures 
they use. Listings of cataloged procedures are available in the programmer 
service area. 

■ / 


3.3 Programmers updating privat^. data sets, including all temporary data 
sets, will probably find tht*^ use of "reserve" unnecessary. 



4. 


Western Electric Company 
Warrenville Data Center 
PROGRAMMING S 5c R MANUAL 


Division 3 Chapter 2 
Section 2 Appendix C 
Issue 2 Date 03/29/74 


ATTIEWL . ISSUE "RESERVE^ FOR UPDATING PUBLIC LOAD MODULE LIBRARIES 

1. GENERAL 

1.1 ATTIEWL, a Western Electric program which calls lEWL, is designed to 
insure integrity of partitioned data sets accessible by multiple CPU’s* 

The simultaneous accessing of a disk pack by more than one CPU could result 
in the action of one interfering with the other, resulting in lost or destroyed 
data. Protection of the data sets is provided by ATTIEWL’s issuance of a 
'’RESERVE" for the direct access unit and effectively prevents access by 
other CPU’s until the device is "DEQUEUED" by the updating program. 

1.2 ATTIEWL must be used when updating any of the public load module 
libraries, for example: 

DEV.LOADLIB 

DEVnn.LOADLIB 

2 . USING ATTIEWL 

2.1 ATTIEWL issues a "reserve" for the output data set specified in the 
SYSLMOD DD statement, and calls the IBM Linkage Editor. 

2.2 The JCL for executing ATTIEWL is the same as that for executing the 
Linkage Editor. Information about using the Linkage Editor may be 

found in the IBM Linkage Editor Manual, C28-6538. 

3. PRECAUTIONS 

3.1 Severe system degradation could occur through the unnecessary use of 
reserve as all other CPU’s are locked out of the entire disk pack 

(not just the data set) for as long as the "reserve" is in effect. 

3.2 Many public cataloged procedures execute programs which issue the 
reserve- Many do not issue the reserve as they are not designed to 

update public data sets. Programmers must know what programs are executed by 
the procedures they use. Listings of cataloged procedures are available in the 
programmer service area. 

3.3 Programmers updating private data sets, including all temporary data 
sets, will probably find the use of "reserve" unnecessary- 
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ATTUPDTE - iSSUE PRESERVE** FOR UPDATING PUBLIC CARD IMAGE LIBRARIES 


1. GENERAL 

1.1 ATTUPDTE, a Western Electric program which calls lEBUPDTEj is designed 
to insure integrity of partitioned data sets accessible by multiple 

CPU’s. The simultaneous accessing of a disk pack by more than one GPU could 
result in the action of one interferring with the other, resulting in lost or 
destroyed data. Protection of the data sets is provided by ATTUPDTE’s issuance 
of a”RESERVE” for the direct access unit and effectively prevents access by 
other CPU’s until the device is ’’DEQUEUED” by the updating program. 

1.2 ATTUPDTE must be used when updating any of the public card image librarie 
for example: 

PDNn.PARMLIB* • 

PLC.CONTROL 

PLC.JCLLIB 

PLC.PROCLIB 

*PRDn.PARMLIB can be updated using CCUPDATE because the update is ’’INPLACE”. 
(See Division 3, Chapter 3, Section 1, Subroutines). 

2. USING ATTUPDTE 

2.1 ATTUPDTE issues a ’’reserve” for the output data set specified in a 
SYSUT2 DD statement, and calls the IBM Utility Program, lEBUPDTE. 

2.2 The JCL for executing ATTUPDTE is the same as that for executing 
lEBUPDTE. Information about using lEBUPDTE may be found in the IBM 

OS Utilities Manual, GC28-6586. 

3. PRECAUTIONS 

3.1 Severe system degradation could occur through the unnecessary use of 
reserve as all other CPU’s are locked out of the entire disk pack 

(not just the data set) for as long as the "reserve” is in effect. 

3.2 Many public cataloged procedures execute programs which issue the 
reserve. Many do not issue the reserve as they are not designed to 

update public data sets. Programmers must know what programs are executed 
by the procedures they use. Listings of cataloged procedures are available 
in the programmer service area. 

3.3 Programmers updating private data sets, including all temporary data 
sets, will probably find the use of "reserve” unnecessary. 
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DELETE - SCRATCH/UNCATALOG DATA SETS 


1. GENERAL 

1.1 DELETE is a Western Electric utility program which may be used to scratch 
and/or uncatalog data sets from storage packs (see Division 2, Direct 

Access Storage). While the IBM Utility Program lEHPROGM performs the same 
function, DELETE differs in several respects! 

1. No knowledge of where the data sets are located is required. 

DELETE will search for the data sets on every storage pack. 

2. If a data set exists on more than one pack, all will be 
deleted. Only one control statement is necessary. 

3. If the data set is cataloged, it will be automatically 
uncataloged. 

4. DD statements allocating the storage packs are not required. 

Thus, it is not necessary to know what storage packs are 
currently mounted. 

5* Generation data sets on disk may be specified with a relative 
generation number in parentheses. 

2. CODING REQUIREMENTS 

2.1 Two DD statements are required for proper execution of DELETE: 

1. SYSIN defines a control statement input data set. 

2. SYSPRINT defines a diagnostic output data set. 

2.2 The name of the data set to be uncataloged and/or scratched should be 
punched in columns 1 through 44 of the control statement. Columns 45 

through 80 are ignored and may be used for comments. Any number of control 
statements may be submitted at a time. 

2.3 JCL statements for executing DELETE are: 

// JOB card 

// EXEC PGM=:DELETE,REGI0N=3OK 
//SYSPRINT DD SYS0UT=A 
//SYSIN DD * 

DSNAMEl 

DSNAME2 

DSNAMEn 

1 * 
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LYNETTE - ISAM FILE INFORMATION 


1. GENERAL 

1.1 LYNETTE is a Western Electric modified version of an IBM Type III 
Utility Program which may be used to provide organizational information 

for an Indexed Sequential Access Method (ISAM) file. The program produces 
information which is useful to the user in the maintenance of an ISAM file. 

1.2 The following organizational statistics are provided by the LYNETTE 
program: 

1. Number of records residing in the prime data area 

2. Number of records residing in an overflow area 

3. Number of records tagged for deletion 

4. Number of overflow tracks allocated per cylinder 

5. Number of cylinder overflow areas full 

6. Number of tracks remaining in the independent overflow area 

7. Number of accesses to overflow records other than the.first 

8. Number of index levels 

9. Number of tracks used for highest index 

10. Number of bytes needed for highest index 

11. Number of possible physical records per prime track 

12. Blocksize 

13. Logical record length 

14. Number of possible records per overflow track 

1.3 JCL statements for executing LYNETTE are: 

II EXEC PGM=LYNETTE,REGI0N=6OK 
//SYSUTl DD Parameters defining input data set 
//SYSPRINT DD SYS0UT=A 
//SYS0UT DD SYS0UT=A 
//SYSIN DD vv 
INF0 

/.V 
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SLIST - DISK DATA SET INFORMATION 


1. GENERAL 

1.1 SLIST is a Western Electric modified version of an IBM Type III Utility 
Program which may be used to provide information about the attributes 
of disk data sets. The following statistics are provided by the SLIST program 


1. 

Creation date 

8. 

Relative ending track 

2. 

Expiration date 

9. 

Secondary extents 

3. 

Data set type 

10. 

Tracks allocated 

4. 

Record format 

11. 

Tracks used 

5. 

Logical record length 

12. 

Tracks unused 

6. 

7. 

Blocksize 

Relative beginning track 

13. 

Data set name 


1.2 JCL statements for executing SLIST are: 

// EXEC PGM=SLIST, PARM=xXxx ,REGI0N=3OK 
//SYSPRINT DD SYS0UT=A 

//DDn DD UNIT=DISK,DISP=0LD,V0L=SER=:volser 

1.21 PARM^ixxxx is an option which, if used, compares the four character 
PARM value with the first 4 characters of the DSNAME’s on each volume 

Only those DSNAME’s resulting in an equal compare will be listed. If no PARM 
value is specified, the entire VTOC will be listed. 

1.22 DDn - up to nine DD cards with DDNAME’s DDl through DD9 may be 
specified. A separate report will be generated for each volume 

specified. A volume may be identified through the catalog or pass queue 
by specifying a dsname. 

2. NOTES ON SLIST OUTPUT 

2-1 The quantities TRALLOC, TRUSED, and TRUNUSD are in tracks and include 
any secondary extents. 

2.2 The quantities RBEGTR and RENDTR refer to the relative (to zero) 

beginning and ending tracks of the primary allocation on the volume. 

2-3 Quantities for data sets which were allocated in terms of blocksize 

(not CYL or TRK) and which have secondary extents will be inaccurate. 

2.4 Quantities for null "data sets" will be inaccurate. 

2- 5 Quantities for indexed sequential data sets are inaccurate. 

3. CATALOGED PROCEDURE 

3- 1 A cataloged procedure LISTDISK, has been prepared to facilitate use of 

SLIST, A description of the procedure may be found in Division 3, 

Chapter 5, Cataloged Procedures. 
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SORTSPAC - CALCULATE DIRECT ACCESS SORT WORK SPACE 

1* PURPOSE' 

1.1 SORTSPAC is a Western Electric developed program whose purpose is to 
perform the calculation to determine the amount of direct access work 
space required to perform a direct access sort given the parameters, logical 
record length, record count, number of auxiliary sort work areas and direct 
access device type. 

2. DESCRIPTION 


2.1 SORTSPAC performs its calculation on the basis of two formulas given 
in OS SORT/MERGE Programmer’s Guide SC33-4007. The formulas are; 

Formula 4, Balanced Technique 
T=(S(N)/K(N-1)) + 2N 

Formula 5, Crisscross Technique 
T==1.25S/K 

where: 

T is total number of tracks 

N is the number of intermediate storage areas 

S is the number of input records 

K=B/L 

B is 7000 for 2314 or 12000 for 3330 

Lis input logical record length (maximum for variable length records) 

2.2 The user supplies input consisting of fixed format cards with four 
parameters, logical record length, record count, number of work areas and 

device type, 3330 or 2314. 

2.3 The program output is a SYSOUT display of the input cards and the computed 
number of tracks per work area and the number of cylinders per work area 

for each set of parameters. 

2.5 If an input card is in error diagnostic messages are produced. 

3. CODING REQUIREMENTS 

3.1 The JCL required to execute SORTSPAC is: 

3.11 II exec PGM=S0RTSPAC,REGI0N=3OK 

//SYS0UT DD SYS0UT=A 
//PARMS DD * 

one or more input cards 

/* 
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SORTSPAC - CALCULATE DIRECT ACCESS SORT WORK SPACE (CONT.) 


3.2 The control card is of the following format: 


Field Name 

Columns 

Length 

Default 

Logical record length 

1-5 

5 


Record count 

7 - 14 

8 


Number of work areas 

16 - 17 

2 

6 

Direct Access Device type 

19 - 22 

4 

3330 


3.21 Fields require leading zeros. 

3-22 If work areas and device type are omitted the defaults are 06 and 3330 

4. EXAMPLE OF USE 

// EXEC PGM=S0RTSPAC,REGI0N=3OK 

//SYS0UT DD SYS0UT=A 
//FARMS DD * 

00050,00025000,04,3330 

Output from the above example appeared as: 

SORTSPAC PROGRAM CALCULATIONS BASED ON: 

00050,00025000,04,3330 

LRECL IS 50, COUNT IS 25000, NO. OF WK AREAS IS 4, DASD IS 3330 
USE 37 TRACKS PER WORK AREA OR 2 CYLS PER WORK AREA. 

5. CATALOGED PROCEDURE 


A cataloged procedure, SORTSPAC, has been prepared to facilitate use of 
this program. A description of the procedure may be found in Division 3, 
Chapter 5, Cataloged Procedures. 
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WEABEND - FORCE ABNORMAL TERMINATION 


1. GENERAL 

1.1 WEABEND is a Western Electric utility program which may be used to 
force abnormal termination of a job. The program is generally used 
in conjunction with a condition code test. Execution of WEABEND results in 
a user completion code of 0012. 

2. EXAMPLE OF USE 
EXEC PGM=PR0GA 

EXEC PGM^WEABEND,C0ND=(5,GT,STEP1),REGI0N=3OK 
EXEC PGM=PR0GB 




//STEPl 


//STEP2 
//STEP3 


/* 

In the above example, the job will abnormally terminate if PROGA returns a 
condition code greater than 4. If it does not, STEP2, the ABEND step, will 
be bypassed and the job will continue to STEP3- 
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WECOPY - GENERAL MEDIA CONVERSION 


1. GENERAL 

1.1 WECOPY is a Western Electric utility program which may be used for general 
media conversion. The program can: 

1. Copy a sequential data set 

2. Copy a member of a partitioned data set (PDS) 

3. Change blocksize 

4. Selectively copy records on a sequential data set 

5. Reduce logical record length 

1.2 JCL statements for executing WECOPY are: 

II EXEC PGM=WEC^PY, PARM=(max, skip ).REGl0N=30K 
//SYSPRINT DD SY'S0UT=A 

//SYSUTl DD parameters defining input data set 

//SYSUTxxx DD parameters defining output data set (see 1.22 and 1.23) 

1.21 PARM=(max,skip) is an optional field which allows the user to selectively 
copy input records. ’Max' is the maximum number of records to be 

copied from the input file and 'skip' is the number of initial records in the 
input file which are to be skipped before beginning the copy operation. The 
parameters must be numeric and may be of any length up to 9 digits. An invalid 
parameter will cause.the PARM field to be ignored and the entire file will 
be copied. 

1.22 DDNAME assignment - The output file for WECOPY is a DD statement 
with a DDNAME in the form of SYSUTxxx (other than SYSUTl which 

always defines the input data set), where xxx is from one to three characters 
assigned by the user. The facility to specify a different DDNAME for the 
output may be useful under ASP. When WECOPY is executed several times within 
a job ASP //*FORMAT cards can refer uniquely to each output data set. 

If WECOPY is used to obtain punched card output, the user must specify a DD 
statement with a DDNAME in the form of SYSUTPxx and SYSOUT=P. (For example, 
//SYSUTPl DD SYS0UT=P). DCB parameters for punched card output are given 
in Paragraph 1,23. 


1.23 DCB parameters - If any of the RECFM, LRECL, or BLKSIZE paramecers 
are omitted from the DD statement defining the output data set 
(DDNAME=SYSUTxxx), the corresponding parameters will be supplied from the 
SYSUTl DD statement. If punched card output is specified (DDNAME=SYSUTPxx 
and SYS0UT=P), the effective DCB parameters must be; RECFM=F,LRECL=80,BLKSIZE=80, 



// c" ysoT I 
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WECOPY - GENERAL MEDIA CONVERSION (CONT.) 


2. EXAMPLES OF USE 

Example 1: // EXEC PGM=WEC(j(PY,PARM=(100,25),REGI0N=3OK 

Result: The first 25 records will be skipped. Copying will begin 

with the 26th record and a maximum of 100 records will be 
copied. 

The two parameters may also be Coded separately: 

Example 2: // EXEC PGM«WEC0PY,PARM=1OO,REGI0N=3OK 

Result: Copy a maximum of 100 records beginning with the first input 

record. 

Example 3: // EXEC PGM=WEC0PY,PARM=(, 5O),REGI0N=3OK 

Result: The first 50 records will be skipped. Copying will begin 

with the 51st record and the remainder of the file will be 
copied. 


3. WECOPY OUTPUT MESSAGE 

3.1 After successfully copying the input data set, WECOPY will format a 
message indicating the number of records copied. For example: 

'1500 RECORDS - WECOPY*JOHNAME STEPNAME’ 

This message will be written on the SYSPRINT file if a SYSPRINT DD statement 
is included in the job step. Otherwise, the message is directed to the system 
console and job's SYSMSG data set. 

3.2 If an uncorrectable I/O error occurs, a message similar to the above 
message will be printed indicating the number of records, if any, 

successfully copied before the error occurred. In addition, a system 
generated message describing the nature of the error will be printed, and 
the program terminates (see Paragraph 5). 

4. SYSOUT PROCESSING 

All SYSOUT from WECOPY conform to ASP standards. There is no restriction 
on output LRECL or BLKSIZE. If BLKSIZE is not specified for output, 1024 
will be assumed. If carriage control is not indicated on either input or output, 
WECOPY will insert ASA control characters for single space and page ejection. 

5. CONDITION CODE 

The condition code is set as follows: 

00 - Successful completion 

04 - Uncorrectable I/O error associated with SYSUTl 
08 - Uncorrectable I/O error associated with SYSUTxxx 
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WECOPY - GENERAL MEDIA CONVERSION (CONT.) 



6. I/O ERROR PROCESSING 

When an I/O error occurs, WECOPY produces a descriptive error message, 
and immediately terminates normally without an abend. Through judicious 
use of the EROPT field of the DCB, WECOPY can be made to do the following: 

a. Abend for input or output errors. 

b. Copy only those input records which are error free. 

c. Unconditionally copy a file, despite any I/O errors. 

An error message will be generated for each I/O error that occurs. 

7. CATALOGED PROCEDURE 

A cataloged procedure, WECOPY, has been prepared to facilitate use 
of the WECOPY program. A description of the procedure and 
sample JCL for executing the procedure are described in Division 3, 

Chapter 5, Cataloged Procedures. 
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WECOPY2 - GENERAL MEDIA CONVERSION (MODIFIED VERSION OF WECOPY) 


1. GENERAL 

1.1 WEC0PY2, a modified version of the WECOPY Utility Program, may be used 
to remove a group of records from the interior of a sequential data 
set. This is accomplished by the addition of a third parameter in the PARM 
field which specifies the number of records to be copied before deleting 
records. 

1-2 The format of the PARM field is: 

// EXEC PGM=:WEC0PY2, PARM;= ( max , skip , Init ) ,REGI(&N=:30K 

where * *max* ' is the maximum number of records to be copied after 
deleting records, ’ ’skip* ’ is the number of records to be 
deleted, and ”init ” is the number of initial records to 
be copied prior to the delete phase. 

1.3 JCL statements for executing WEC0PY2 are the same as for WECOPY. 

If the third parameter of the PARM value is omitted, WEC0PY2 functions 
exactly as WECOPY. 

2. EXAMPLE OF USE 

Example 1: // EXEC PGM=WEC0PY2,PARM=(40,15,10),REGI0N«3OK 

Result: The first 10 records are copied, the next 15 records are 

skipped, and the next 40 records are copied. 

Example 2: // EXEC PGM=WEC0PY2,PARM=(, 15,10) ,REGI0N=3OK 

Result: The first 10 records are copied, the next 15 records are 

skipped, and the remainder of the file is copied. 

3. REFERENCE 

For additional information on using WEC0PY2, refer to the appendix 
that describes WECOPY. 
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WESELECT - SELECT SPECIFIED RECORDS 


1. GENERAL 

1.1 WESELECT Is a Western Electric utility program which permits the user to 
select specified records from a data set. The program may be used to: 

1. Extract desired record types 

2. Divide a data set 

2. CODING REQUIREMENTS 

2.1 WESELECT functions are controlled by parameters in the PARM field 
of the EXEC statement: 

PARM^’displ,field, [sTOP/STRT] ’ 

2.11 displ is the displacement into the record. Note that the first byte 
of a record has a displacement of 0 (zero). The maximum value is 255, 

which is the displacement of the 256th byte of data. If the record is variable 
length, the 4-byte record length field must be included in the displ value. 

2.12 field is a value used for comparison against input records. The value 
must be unique to the records desired. The field length is limited 

to 90 bytes and must not contain internal commas. If a hexidecimal value 
is desired, use the equivalent multi-punch code. 

2.13 [STOP/STR':^ - an optional parameter used only to divide a data set. 
STOP designates that spooling to SYSUT2 is to stop with this record. 

When the first record containing the specified field is found, that record 
becomes the last record on SYSUT2. STRT designates that spooling to SYSUT3 
is to begin with this record. When the first record containing the specified 
field is found, that record becomes the first record on SYSUT3- 

2.2 JCL statements for executing WESELECT are: 

// JOB CARD 

//STEPl EXEC PGM=WESELECT,PARM='displ, fie Id, [ST^^P/STRT^I ’ ,REGI0N=3OK 
//SYSUTl DD Parameters defining input data set 

//SYSUT2 DD 1st Output (non-selected records) or_ ( spooled data as 

//SYSUT3 DD 2nd Output (selected records) or ( specified through 

//PRINTFIL DD SYS0UT=A ( use of optional 

//SYSUDUMP DD SYSOiUT A ( STOP/STRT parameter 

DCB^s for SYSUTl will be used for SYSUT2 and SYSUT3 unless SYSUT2 and/or 
SYSUT3 are expressly specified in the JCL statements. The user may 
specify DD DUMMY to bypass writing of unwanted records on SYSUT2 or 
SYSUT3. 
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WESELECT - SELECT SPECIFIED RECORDS (CONT. ) 

3. EXAMPLES OF USE 


Example 1: User wants to select all records with sub-code 20. The 

sub-code field is in bytes 9 and 10 of a fixed length record. 

PARK coding: PARM=’8,20’ 

Result: SYSUT2 has all records except sub-code 20 records (if the 

user did not specify DD DUMMY). 

SYSUT3 has all sub-code 20 records. 


Example 2: User discovers that some records on his data set have a 

date of 7315A due to input preparation errors. The date 
field is in bytes 15 - 19 of a fixed length record. 

PARM coding: PARM=’14,7315A’ 

Result: SYSUT2 has all records with a date other than 7315A. 

SYSUT3 has all records with 7315A in the date field. 


Example 3; Due to an abend condition, the user knows records have been 
"mod" onto a data set and wants to remove these records 
before restarting the job. The user knows that the first 
record that was "mod" onto the original data set has a 
16-byte area that would not be found in any of the original 
records. This field is in bytes 70-85 of a fixed length 
record and has the entry: HAWTH73186151111. 

PARM coding: PARM=’69,HAWTH73186151111,STRT’ 

Result: SYSUT2 has all records up to, but not including , the first 

record found with the given value. 

SYSUT3 has the given record and all succeeding records. 


Example 4; Same as example 3 except the record known is the last 
record on the original data set (not the first record 
that was "mod" onto). 

PARM coding; PARM=’69,HAWTH73186151111,ST0P’ 

Result: SYSUT2 has all records up to, and including , the given record 

SYSUT3 has all the succeeding records that were on the input 
data set. 
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WESELECT - SELECT SPECIFIED RECORDS (CONT,) 





Example 5: The user intends to run several tests on a program that will 

process all records having a G in position 10 of a variable 
length record. The input data set is quite large and includes 
record types other than G, The user wants to extract only 
the G-type records. 

PARM coding: PARM=:’13,G’ (Displacement=9 bytes + 4 length bytes). 

Result: SYSUT2 has all records except G type records (if the user 

did not specify DD DUMMY). 

SYSUT3 has all G type records. 
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WEWTOR - WRITE TO OPERATOR 


1. GENERAL 

1.1 WEWTOR is a Western Electric utility program which facilitates com¬ 
munication with the console operator on a job step basis. The program 
may be used in conjunction with COND parameters in the EXEC statement to 
Initiate a console message under given conditions. 


1.2 The message text to be displayed on the console is supplied as a PARM 
value in the EXEC statement and may be up to 100 characters in length 
(a maximum of 61 characters may be coded in a single card). The program 
will add the term "-REPLY U" to the displayed message text, which will 
require an operator reply. 

2. JCL STATEMENTS FOR EXECUTING WEWTOR 

//STEPXX EXEC PGM=WEWr0R,C0ND=(5,GT,STEPX),REGI0N=3OK, 

// PARM=’PSI-03 MESSAGE REQUIRING ACKNOWLEDGEMENT’ 

STEPXX will issue the following console message: 
nn PSI-03 MESSAGE REQUIRING ACKNOWLEDGEMENT-REPLY U 

where nn is a system generated number used by the console operator when 
responding to a message. 

3. RESTRICTIONS 

Division 2, Chapter 2, Section 1 contains a Warrenville Data Center Standard 
governing the use of console messages initiated by a user program. It is 
recommended that the user become acquainted with this Standard prior to 
using the WEWTOR program. 



20 








Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


Division 3 Chapter 2 
Section 2 Appendix N 
Issue 1 Date 8/20/73 


WEDEBEPT - TAPE AND ’’DISK FILE” DUMP 


1, GENERAL 


1.1 WEDEBEPT is a Western Electric print utility whose purpose is to 
print a sequential file whose characteristics may not be known. 

It prints in increments of 100 bytes and terminates each physical record 
when the inter-block gap (IBG) is detected. The first print line of each 
block is indicated with the block record count as well as the block size. 
Print output is routed to the system output stream (SYSOUT). This may be 
used to print standard tape labels. 


1.2 WEDEBEPT incorporates the following facilities: 

1.21 For tape and disk files process an input block of up to BOOO 
bytes. The user may specify the following: 

1. Starting block number. 

2. Number of blocks to be printed. 

3. Printout representation in Hexadecimal or EBCDIC characters- 

1.22 Multiple data sets on tape may be processed with the following 
user options: 

1. Print all of the files 

2. Select which file is to be printed 

3. Select the starting file number 

1.3 The following default parameters have been incorporated into the 
program: 

1. Start printing at file number one 

2. Begin printing block number one 

3. One file is to be printed 

4. Print 25 blocks and terminate job 

5. Printing is in character representation 

Any modification of these parameters will require a 19 byte PARM value in 
the EXEC statement (see PARM FORMAT, 2.2). 

2. PARM FORMAT 

2.1 Before WEDEBEPT is executed, a check is made for a PARM modification. 
If none exists, the default options are in effect (see paragraph 1.3). 
A PARM change must contain 19 characters as de fined in paragraph 2.2 or else 
the program will not process. Ifetifixation of job failure is directed to the 
system console device and the reason for termination is directed to SYSOUT. 
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WEDEBEPT - TAPE AND "DISK FILE" DUMP (CONT.) 


2.2 The format of the FARM value is as follows: 

PARMs:'ff,bbbbb,dd,nnnnn,r’ where: 

2.21 ff is the starting file number. A value of 01 through 99 is valid 
for tape, a value of 01 is valid for disk. 

^i>t)bb is the starting block number. A value of OOOOI through 99999 
is valid. 

2.23 ^ is the number of data sets to be printed this volume. A value 

of 01 through 99 is valid for tape, 01 is valid for disk. 

is the number of blocks to be printed. A value of 00001 through 
99999 is valid as is "ALLPT", which will print the entire file. 

(This format, ALLPT, is not recommended). 

2.25 jr designates printout representation with ’^C" specifying character 
and specifying Hexadecimal. 

Note: The 3rd, 9th, 12th, and 18th positions of the PARK value are commas 
separating the parameter values stated above. 

3. JCL STATEMENTS 

3.1 In general the following JCL is required 
// EXEC PGM«VJEDEBEPT^REGI0N=:3OK 
//SYSUTl DD parameters describing input 
//SYSUT2 DD SYS0UT=A 

3.2 For tape, the SYSUTl dd statement should include: 

//SYSUTl DD UNIT=TAPE, V0L*SER«SSSSSS, DSN»dsnaiae 


(Continued on next page) 


Reason for reissue: Reference to ASP SETUP card deleted. 
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WEDEBEPT -- TAPE AND **DISK FILE" DUMP (CONT.) 


4. EXAMPLES OF USE 

Example. 1; Print the VOL,HDRl, and HDR2 information from a 
standard label tape or use the defaults to print 
an unlabeled tape. 


// EXEC PGM-WEDEBEPT,REGI0N«3OK 

//SYSUTl DD UNIT«TAPE,V0L-SER-123456jDSN«MYTAPE,LABEL«(,BLP) 
// DISP=(0LD,KEEP) 

//SYSUT2 DD SYS0UT»A 
/* 

Example 2: Print a diak file passed from a previous step in 
hexadecimal. 

// EXEC PGM«WEDEBEPT,REGI0N-3OK,PARM*»O1,OO<)O1,O1,ALLPT,H’ 
//SYSUTl DD DSN«&&TEMPFILE,DISP-(0LD,DELETE) 

//SYSUT2 DD SYS0UT-A 

Example 3; Print standard label information and 10 blocks of input data 
in character representation. 

// EXEC PGM»WEDEBEPT,PARM»’01,00001,02,00010,C’ 

SYSUTl and SYSUT2, see Example 1. 

Example 4: Print an unlabeled tape. Start at block 500 and print 
20 bloeks of input data in Hexadecimal representation. 

// EXEC PGM-*WEDEBEPT,PARM«’01,00500,01,00020,H’ 

SYSUTl and SYSUT2, see Example 1. 

Example 5: A multiple data set has four files. Print 15 blocks from 
files three and four in character representation. 

JCL Coding: // EXEC PGM*WEDEBEPT,PARM='03,00001,02,00015,C* 

SYSUTl and SYSUT2, See Example 1. 


5. REFERENCE 

See catalogued procedures DADUMP and TPDUMP in Division 3, Chapter 5, 
Section 1. 


Reason for reissue: 


Example 1 changed to omit reference to ASP 
SETUP card. 
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WETESTPR - ASP RJP WORKSTATION PRINTER TESTING 


1. GENERAL 

WETESTPR is a Western Electric program that allows an ASP RJP Workstation 
to test printers on-line. The remote Workstation is assumed to have an 
IBM QN print chain or equivalent (60-GRAPHICS, 45 Preferred) with 132 
ptint positions. 

2. TEST PATTERN 

2.1 TEST 1 - Print each of the 60 character set 10 times, 60 lines per page. 

2.2 TEST 2 - A ripple print effect, the initial print line repeats the 

60 character set 2 times, and the first 12 characters for a 132 character 
print line. Each subsequent print line is offset 1 character for a total 
of 60 iterations per page. Twenty pages are printed before the test 
is terminated. 

3. JCL REQUIREMENTS 
// JOB CARD 

//*F0RMAT PR,DDNAME=PRINTER,DEST=RM002^RY 
// EXEC PGM-»WETESTPR,REGI0N»3OK 
//PRINTER DD SYS0UT-A 

where X represents terminal number, Y represents the specific printer to be 
tested. 

Multiple printers can be tested by submitting additional ASP //*FGRMAT 
cards, specifying in the DEST«parameter the applicable device. 

4. TEST FUNCTIONS 

4.1 Verifies QN UCS buffer is still properly loaded. 

4.2 Synchronization of print line can be observed, (wavy printing) 

4.3 Dropped characters or worn print positions can be noted. 

5. REFERENCE 

Questions may be directed to D. J. Wilfenger, 9411 Warrenville. 
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VFPRINT - SELECTIVE PRINT DUMP 



1. GENERAL 

1.1 VFPRINT is a print utility program, useful as a debugging aid because 
of its ability to print records in two formats and to select records 

for printing on the basis of several options. The formats are hexadecimal 
or normal character representation or an alternating combination of the two. 
The select options include starting point and record count controls or 
field comparisons. 

1.2 Input to VFPRINT may be tape or disk, fixed, fixed blocked, variable 
or variable blocked, with a maximum LRECL of 2800 bytes. 

1.3 Output of VFPRINT is printed in lines of 120 characters for as many 
lines as necessary to list the entire physical record. The first 

printed line of each record contains the physical record number in positions 
122-132* A line is skipped between the printout of each physical record. 

2. COHING REQUIREMENTS 

2.1 VFPRINT is controlled by parameters of the PARM field and/or parameters 
of a control statement. 

2.2 JCL statements required are; 

// EXEC P(^-VFPRINT,PARM« [options] ,REGION«30K 
//SYSPRINT DD SYS0UT-A 

//SYSUTl DD Parameters defining Input data set 
//SYSUT2 DD SYSOUT«A 
//SYSIN DD * (optional) 

VFPRINT control statement (optional) 

2.3 If PARM is omitted from the EXEC statement the entire input file is 
printed in character format. 

2.4 The PARM may be used with positional parameters to give the starting 
point, count controls, and print format. 

2.41 The first positional parameter gives the number of records to be 
printed. 

2.42 The second positional parameter gives the number of records to be 
skipped before printing begins. 

2.43 The third positional parameter specifies the format of the printed 
output. If it is omitted the format is character representation. If 

it is HX, the output is printed in hexadecimal representation. If it is CX, 
the output is printed alternately in hexadecimal and character representation, 

2.5 If PARM°SYSIN is specified, the user must choose from six parameters to 
establish a mode of record selection. These keyword parameters are 

entered in a control statement. 
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2.501 LN - A positional parameter designating the length of the compare 

field. This must be the first parameter . 

2.502 SL - Starting location of the compare field in the input record. 

2.503 EQ - The value which will be equated to the compare field. Input 

records whose compare fields are equal to this value will be 
printed. When EQ is designated, parameters GT and LT may not 
be used. 

2.504 GT - A value to designate the lower limit of a range. Input records 

whose compare field is greater than this value will be printed. 

If GT is used, LT must be used also. 

2.505 LT - A value to designate the upper limit of a range. Input records 

whose compare field is less than this value will be printed. If 
LT is used, GT must be used also. 

2.506 FM ~ A value to designate print format. If it is omitted the format will 

be character. A value of EK will cause hexadecimal representation. 

A value of ^ will cause alternating hexadecimal and character 
representation. 

2.507 ALL- This signifies that the search governed by EQ, LT and GT will be 

performed on the entire file. If ALL is not specified, the 
search assumes the records are in ascending sequence on the 
comparison field and may terminate without searching the entire 
file. (i.e. The first unequal after an equal comparison will 
terminate the search.) 

2.508 Keyword parameters except LN, may be entered in any order and 
starting in any column. 

2.50f A control card may be continued in another card by placing a comma 
after the last parameter on a card, however, a parameter and its 
value may not be split over two cards. 

2.510 Values supplied for EQ, GT or LT may be any string of characters equal 
to the length defined by the LN parameter. 

3. EXAMPLES OF USE 

Example 1: Print the first 100 records in character format. 

//EXEC PGM=VFPRINT,PARM=100 

Example 2; Skip 50 records and print the next 100 in character format. 

// EXEC PGM=VFPRINT,PARM=(100,50) 

Example 3: Print an entire file in hexadecimal. 

//EXEC PGM=VFPRINT,PARM*(,,HX) 
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VFPRINT - SELECTIVE PRINT DUMP (CONT.) 


Example 4: Print 50 records of a file in alternating hexadecimal and 
character format. 

// EXEC PGM-=VFPRINT,PARM»(50,,CX) 

Example 5: Print all records with a value of 12345 starting in position 1 
//EXEC PGM«VFPRINT,PARM«SYSIN 
LN=5,SL=7,EQ«12345 

Example 6: Print, in hexadecimal, all records with a field starting in 
position 25 having values ranging from 575 to 1250. 

// EXEC PGM«VFPRINT,PARM»SYSIN 
LN=4,SL=25,GT=0574,LT=1251,FM=HX,ALL 

4. REFERENCE 


W. J. Zatloukal 


programmer, Warrenville. 
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LIBRLIST - PARTITIONED DATA SET TO LIBRARIAN DATA SET 








1. GENERAL 

1.1 The LIBRLIST utility is a Western Electric utility program which is used to 
set up data transfer from a source partitioned data set to a LIBRARIAN data 

set. With one execution of LIBRLIST, an entire IBM-type library could become part 
of a separate LIBRARIAN library. 

1.2 The LIBRLIST utility produces input for a subsequent LIBRARIAN execution step. 
The input produced by LIBRLIST is in the standard format required by 

LIBRARIAN and is as follows; 

-0PT N0EXEC,INDEX 

-ADD module name,(contents of parmfield, if any) 

-AUX SOURCE(module name) 

-EM0D 

1.21 The last three cards are repeated for each module on the input source 
library. 

1.22 The last statement produced by LIBRLIST will be an -END card. 

1.23 LIBRLIST will produce LIBRARIAN input for modules with the same names 
as the corresponding modules on the input IBM data set. 

1.24 The LIBRARIAN data set must already exist and be initialized prior to 
using LIBRLIST. 

2. CODING REQUIREMENTS 

2.1 The JCL required to execute LIBRLIST is: 

//STEP EXEC PGM=LIBRLIST,PARM='parameters defining what will appear on 
the -ADD card after the module name' (see paragraph 2.11) 

//SYSUTl DD parameters defining input data set (see paragraph 2.12) 

//SYSPRINT DD parameters defining output data set (see paragraph 2.13) 

2.11 The FARM field is optional. If omitted, default parameters that apply 
when adding modules to a LIBRARIAN data set will be in effect when the 
LIBRARIAN step is executed. When specified, it will provide the options that 
will be placed on all -ADD cards produced by LIB^IST. For example, 

PARM=' ,SEQ=/1,6,100,100/' would provide this type of sequencing for ^ . 

the modules added. All valid options for the -ADD card may be included on 
the FARM field. 

Note the "comma" used in the example. This must always appear as 
the first character in the FARM field after the quotes because 
LIBRLIST will take whatever is in the FARM field and place it 
immediately after the module name on the -ADD cards. 
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2.12 SYSUTl is used to describe the parameters used as input to the 
LIBRLIST utility. It must describe an IBM partitioned data set whose 

members are to become modules in a LIBRARIAN data set* 

2.13 SYSPRINT is used to describe the output of LIBRLIST. This should 
specify a temporary data set, which must be blocked 80, which will 

contain the LIBRARIAN control cards produced by the LIBRLIST utility. This 
data set will be the SYSIN input to a subsequent LIBRARIAN step. 

2.2 LIBRLIST requires 30K for execution. 

2.3 The LIBRARIAN step following the execution of the LIBRLIST utility mqst 
contain a DD statement with the ddname SOURCE and the dsname of the JBM- 

type partitioned data set specified in SYSUTl of the LIBRLIST utility. Thk 
SOURCE dd card would have to describe the IBM-type partitioned data set fully 
enough in the JCL to pick up the necessary information. 

3. EXAMPLES OF USE 

//STEPl EXEC PGM=LIBRLIST,PARM=‘,LIST,SEQ=C0B0L,SYNCHK(CA,C)»,REGI0N=9OK 
//SYSUTl DDDSN=WN.PGMS,DISP=SHR 

//SYSPRINT DD DSN=&&PGMS,UNITi=DISK,DISP=(NEW,PASS,DELETE), 

// DCB=(BLKSIZE=80),SPACE=(TRK,(2)) 

/* 

//STEP2 EXEC LIBP,MASTER=’PRD6.S0URCE',REGI0N=9OK 
//LIBP.S0URCE DD DSN=WN.PGMS,DISP=SHR 
//LIBP.SYSIN DD DSN=&&PGMS,DISP=(0LD,DELETE) 

These two steps will transfer all the source modules from WN.PGMS and 
add them to the LIBRARIAN data set PRD6.SOURCE with options as specified 
on the PARM card. 

4. REFERENCES 

LIBRARIAN User Reference Manual 

LIBRARIAN procedures - Warrenville S & R Manual, Div. 3, Chap. 5, Sect. 1 
ERG Technical Report CC005292 (12-13-72) "LIBRLIST," 

Author - E. Wasserman, 222 Broadway 
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DASPACE - DIRECT ACCESS SPACE UTILIZATION 
WITH VARIED BLOCKING FACTORS - 3330 


1. PURPOSE 

1.1 DASPACE is a Western Electric developed program whose purpose is to 
compute direct access space utilization data for fixed length records 

using a variety of blocking factors from 1 to the maximum allowed by track 
size. The programmer may review the generated data and select a factor 
which will best serve his needs and yet make efficient use of the direct 
access space allocated. If a record estimate is provided the program also 
computes the tracks, cylinders or blocks required for the file. 

2. DESCRIPTION 

2.1 DASPACE performs its calculations on the basis of the formula provided 
in the IBM Reference Manual for IBM 3330 Disk Storage GA-1592. 

N =» 13165 / (135 + C 4 KL 4 DL) 

where: 

N is the number of physical records per track 
KL is key length 
C is 0 if KL is zero 
C is 56 if KL is not zero 
DL is data length (physical block) 

2.2 Input consists of‘fixed format control cards with three parameters, 
logical record length, estimated record count, and key length (if 

keys are used). 

2.3 The programmer may specify a complete or condensed form of the 
listing by specifying a parm value of ’L’ for the Complete listing 

or omitting the parm for the condensed version. The condensed version 
lists only the block sizes which give maximum number of records per block 
for each integral number of blocks per track. 

2.4 The program output consists of a report under the DDNAME of "USAGE" 
and error messages under the name "SYSOUT". 

2.5 The maximum block size permitted for SYSOUT under ASP is printed 
and identified. 

3. CODING REQUIREMENTS 

3.1 The JCL required is as follows: 

3.11 // EXEC PGM=DASPAGE,REGI0N=3OK,PARM=x 

7/SYS0UT DD SYS0UT=:A 
//USAGE DD SYS0UT=A,DCB=BLKSIZE=121 
//PARMS DD * 

one or more input cards 

./*■ . . 

The DCB sub-parameter BLKSIZE is required for the USAGE statement. 
It should be a multiple of 121. 
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DASPACE - DIRECT ACCESS SPACE UTILIZATION 
WITH VARIED BLOCKING FACTORS - 3330 (CONT.) 


3. CODING REQUIREMENTS (CONT.) 

3.12 PARM=L will cause a full listing. If omitted a condensed listing 
is generated. 


3.2 The control card is of the following format: 
Field Name Columns 


Length 

5 

8 

3 


Default 

none 

zero 

zero 


Logical record length 1-5 

Estimated record count 7-14 

Key length 16-18 

Fields require leading zeros. 

4. EXAMPLE OF USE 

// EXEC PGM=DASPACE,REGI0N=3OK 
//SYS0UT DD SYS0UT=^ 

//USAGE DD SYS0UT=^,DCB=BLKSIZE=1936 
//FARMS DD * 

00100 

00080,00025000 

00075,00000000,015 

5. CATALOGUED PROCEDURE 

A catalogued procedure, DASPACE, has been prepared to facilitate use 
of this program. A description of the procedure may be found in 
Division 3, Chapter 5, Catalogued Procedures. 

6. REFERENCE 


E. W. Rzym, programmer, Warrenvillei 


(Continued) 
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DASPACE ~ DIRECT ACCESS SPACE UTILI^TION 
WITH VARIED BLOCKING FACTORS > (COl^. ) 


7. SAMPLE OUTPUT 


DIRECT ACCESS SPACE GUIDE FUR 3330 


EST NO 

LRECL KEY 

RCOS 

BLK 

RCOS 

8LK6 

BYTES 

t USER 

TRKS 

CYLS 

BLKS. 

RCOS 


/BLK 

Size 

/TRK 

/TRK 

DATA 

DATA 

REQO 

REQD 

REQO 

9500 

75 

01 

75 

62 

62 

4650 

35.3 

154 

9 

9500 

9500 

75 

02 

150 

92 

46 

6900 

52.4 

104 

6 

4750 

9500 

75 

03 

226 

108 

36 

8100 

61.5 

88 

5 

3167 

^500 

75 

O'*- 

300 

120 

30 

9000 

68.3 

80 

5 

2375 

9500 

75 

05 

375 

125 

25 

9375 

71.2 

76 

■ 4 

1900 

9500 

75 

06 

450 

132 

22 

9900 

75.1 

72 

4 

1584 

9500 

75 

07 

525 

133 

19 

9975 

75.7 

72 

4 

1358 

9500 

75 

08 

600 

136 

17 

10200 

77.4 

70 

4 

1188 

9500 

75 

09 

bl5 

144 

16 

10600 

82.0 

66 

4 

1056 

9600 

75 

10 

750 

140 

14 

10500 

79.7 

68 

4 

950 

9500 

75 

11 

825 

143 

13 

10725 

81.4 

67 

4 

864 

9500 

75 

12 

900 

144 

12 

10800 

82.0 

66 

4 

792 

9500 

75 

14 

1050 

154 

11 

11550 

87.7 

62 

4 

679 

9600 

75 

15 

1125 

150 

10 

11250 

85.4 

64 

4 

634 

9500 

75 

17 

1275 

153 

9 

11475 

87.1 

63 

4 

559 

9500 

75 

20 

1500 

160 

8 

12000 

91.1 

60 

4 

475 

9500 

75 

23 

1725 

161 

7 

12075 

91 .7 

59 

4 

414 

9S00 

7 5 

E7 

2025 

162 

6 

12150 

92.2 

39 

4 

352 

9500 

75 

35 

2475 

165 

5 

12375 

93.9 

56 

4 

288 

9500 

75 

9Z 

3150 

168 

4 

12600 

95.7 

57 

3 

227 

9500 

7d 

56 

4200 

I6a 

3 

12600 

95.7 

57 

3 

170 

9500 

75 

85 

6375 

170 

2 

12750 

96.8 

56 

3 

112 

9500 

75 

173 

12975 

173 

1 

12975 

98.5 

35 

3 

55 


DIRECT ACCESS SPACE GUIDE FOR 3330 




£ST NO 

LRECL KEY 

RCDS 

BLK 

RCOS 

BLKS 

BYTES 

% USER 

TRKS 

CYLS 

BLKS 

RCOS 


/SLK 

SIZE 

/TRK 

/TRK 

DATA 

DATA 

R£00 

REQD 

REOD 


120 

01 

120 

51 

51 

6120 

46 .4 





120 

02 

240 

70 

35 

8400 

63.8 





120 

03 

360 

78 

26 

9360 

71 .0 





120 

04 

480 

84 

21 

10080 

76.5 





120 

05 

600 

85 

17 

10200 

77.4 





120 

06 

720 

90 

15 

10800 

82.0 





120 

07 

840 

91 

13 

10920 

82.9 





120 

08 

960 

96 

12 

11520 

87.5 





120 

09 

1030 

90 

10 

10800 

82.0 





120 

11 

1320 

99 

9 

11860 

90.2 





120 

12 

1440 

96 

6 

11520 

87.5 





120 

14 

1680 

98 

7 

11760 

89.3 





120 

16 

1920 

96 

6 

11520 

87.5 



ASP SYSOUT LIMIT 


120 

17 

2040 

102 

6 

12240 

92.9 





12U 

20 

2400 

100 

5 

12000 

91.1 





120 

26 

3120 

104 

4 

12480 

94.7 





120 

35 

4200 

lOS 

3 

12600 

95.7 





120 

53 

6360 

106 

2 

12720 

96.6 





120 

108 

12960 

108 

I 

129<^0 

98.4 
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DPMPSIL - LIST THE CONTENTS OF THE PSI TABLE 


1. GENERAL 

1.1 DPMPSIL is a Western Electric utility program which may be used to 
produce a formatted listing of the contents of the PSI table by 
organization number. A parameter may be specified to limit the list 
to one location or to one organization within a location. 


1.2 Possible formats for a user supplied parameter are: 

PARM=:LL where LL is an alphabetic location code. The 
PSI list produced will include only PSI's 
registered for this location. 

PARM=LLDDDD where LL is an alphabetic location code and 
DDDD is a department number (numeric). The 
PSI list produced will include only PSI's registered 
for this organization. 

If no parameter is specified, the entire PSI table will be listed. 

2. EXECUTION 

2.1 Execution of DPMPSIL should be accomplished via the cataloged 

procedure DPMPSIL which is documented in Division 3, Chapter 5, 
Cataloged Procedures. 
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WEMFCOPY - MULTIPLE FILE COPY 


1. GENERAL 

1.1 WEMFCOPY is a Western Electric utility program for 
creating "DUMMY" files and/or for copying multiple 

files in one program step. 

1.2 JCL statements for executing WEMFCOPY are: 

// EXEC PGM*WEMFCOPY,REGION*60K 

//STEPLIB DD DSN«DEV08.LOADLIB,DISP*SHR (see par. 1.26) 
//SYSPRINT DD SYSOUT«A 

//D xxxxxxx DD parameter defining "DUMMY" files 


//^ Vyyyyyy DD parameters of input file to be copied 
//T yyyyyyy DD parameters of copied (output) file 


1.21 D xxxxxxx represents a ddnaune which starts with 

Any "D" prefixed name represents a "DUMMY" 
file (one containing O.S. header and trailer labels only). 

Up to 10 dummy files can be created. Such files are processed 
in their respective JCL sequence and before any copy 
operations. 

1.22 F yyyyyyy represents a ddname which starts with "F" 

2 md denotes an input sequential data set which 

is to be copied. 

1.23 Tyyyyyyy represents a ddname which starts with "T" 
and aenotes an output sequential data set. 

1.24 In order to copy a file, the ddname defining the 
input data set must be prefixed with "F" and 

the ddname defining the output data set must be prefixed 
with "T". The other seven characters in the respective 
"F" and "T" prefixed ddnames must be equal. 

1.25 Up to ten (10) files can be copied, in addition to 
"DUMMY" file processing. 
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WEMFCOPY - MULTIPLE FILE COPY (CONT.) 


1.26 A DCB, specifying LRECL, BLKSIZE, and RECFM, 
must be specified for each input file to be 
copied. If undefined record length (RECFM*bU) is specified^ 
the user must include a STEPLIB ddname card as shown in 
par. 1.2. If DCB information is missing on an output DD, 
then the DCB supplied for the respective input will be 
utilized. 


1.27 Files are copied according to the sequence of the 
"F* prefixed ddnames. Only one file is copied 
at a time. UniTvAFF can be utilized to share a common 
device (s) on output. 

2. WEMFCOPY REPORT 

2.1 After successfully copying data files, WEMFCOPY 
will issue a report containing information about 
each copy operation. The report contains the following : 


a. 

b. 

c. 

d. 

e. 

f. 

g. 

h. 

i. 

j. 

k. 


1 . 

m. 


TIME • copy operation complete 
FILENAME - last seven characters of like "F" 
and "T" ddnames 
RECCNT - record count 
BLKCNT - block count 
RF - RECFM 

REC-LEN - LRECL of output 
BLK-LEN - BLKSIZE of output 
VOL-SER - output volume serial 
PER-CNT-FUL - percent of a 2000 foot reel 

of tape that the file would occupy 
DSNAME - DSNAME of the output data set 
RECIN - LRECL of input file if unit record is 
used as output 

BLK-IN - BLKSIZE of input file if unit record 
is used as output 
EXPIRE - retention date. 


3. REFERENCE 


Oklahoma City Software Support Group 


I 
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WESFSPRT ~ SEQUENTIAL FILE SELECTIVE PRINT 


1. GENERAL 

1.1 WESFSPRT is a general purpose print program to 
print sequential files or portions of sequential 

files in either HEX or normal format. 

1.2 Input to WESFSPRT is sequential tape or disk files 
in fixed, fixed blocked, variable, and variable 

blocked format. 

1.3 Output of WESFSPRT is printed 100 characters/line 
until each physical record is printed. A line is 

skipped between each physical record with a heading line 

ai the top and bottom of each page. 

i I i 

2, CODING REQUIREMENTS 

2.1 WESFSPRT is controlled by a FARM field and a control 
card for special conditions. 

2.2 JCL statements are: 

// EXEC PGM-WESFSPRT,FARM-*(options)*,REGI0N*30K 
//SYSPRINT DD SYSOUT-A 
//SYSUTl DD (user data set) 

//SYSIN DD * 

Control card (Optional - see par. 2.46) 

/* 

2.3 If FARM Is omitted from the EXEC statement, the 
entire input file is printed In normal format. 

2.4 FARM options. 


2.41 

SKIP-n 

skip "n” records before starting to print 

2.42 

PICK»n 

print every ”n'' record. 

2.43 

LIST-n 

print only "n*' records. 

2.44 

HEX 

print data in HEX format 



(unpacked data prints in normal format). 

2,45 

NXP 

do not space between physical records. 
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WESFSPRT - SEQUENTIAL FILE SELECTIVE PRINT (CONT.) 


2*4 FARM Options (Cont.) 

2.46 CARD to specify control card option. 

Control card format: 

*L,START,LENGTH,ARGUMENT 
*H,START,LENGTH,ARGUMENT 
*E,START,LENGTH.ARGUMENT 
*AE.START.LENGTH.ARGUMENT 

where: 

* Is used for control purposes 

L Low 

H High 

E Equal 

AE All Equal 

START Is the starting location of the data to be 
tested 

LENGTH Is the length of the data to be tested 
ARGUMENT Is the data to be tested 

With the above options you can print all records 
with the control less than the Argument, greater 
than the Argument, or equal to the Argument. 

Also you can select all records that are equal 
to the Argument regardless of the sequence of 
the Inputs. 

Example; *L,1,5.08381 

This would print out all records that 
have a control of less than 08381 
starting In position 1 for a length of 
5. The commas are required to separate 
the fields• 

3. REFERENCE 


Oklahoma City Software Support Group. 
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ZEROCORE - ZERO USER REGION IN MAIN STORAGE 


1. general 

1.1 When a job completes on an IBM 360/370 CPU the main storage 
assigned to that job is left intact as last used by the job. 

When that region in main storage is assigned to another job the core 
remains as previously stated. If the second job abends and the user 
has requested a dump he will obtain a dump of all the main storage 
assigned to him even though he has not necessarily used it, thus giving 
the user a dump of'-some of the core as left by the previous user. To 
prevent another job from obtaining information in this manner, ZEROCORE 
zeroes the main storage, I/O buffers and subpools and hence insures 
that confidential information may not be obtained via system dumps, 

2. CODING REQUIREMENTS 

2.1 To execute ZEROCORE one merely provides an EXEC card with 
PGM=ZER0C0RE and REGI0N=xxK where XX is region in thousands 

to be zeroed. This EXEC card would be the last step of a job if the 
region for all steps in the job is the same or if the class of the 
job is A,B,or C, If the associated job uses descending regions and a 
CLASS of J,K, or L, then to ensure that all main storage is zeroed in that 
particular job a ZEROCORE step must be inserted before the region is 
decreased. 

2.2 To be able to zero core even if the job abends, a C0ND=EVEN must 
be coded on the EXEC card. 

3. VERIFICATION 

3.1 The zeroing of core may be verified by use of PARM='VERIFY' on 
the EXEC card. This parameter will cause two 'DEBUG' dumps to 
be taken. One is after main storage is zeroed and the second is after 
the subpools and buffers are cleared. In this case a //VERIFIED DD SYS0UT=A 
card must be placed immediately after the EXEC card, 

4» REFERENCE 

R, A. Burns, Programmer, Lisle. 
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TRMUST06 - CHECK FOR ENTRIES IN A GENERATION DATA GROUP 


1. GENERAL 

1.1 TRMUST06 is a Western Electric utility program developed for 
application systems interfacing with Minl-WEDGE. The function 

of this program is to determine if there are any entries in the 
generation data group specified by the user via a PARM parameter in 
the JCL EXEC statement. 

1.2 An applicatidn program can determine if an input file has been 
UNSTACKed by checking a condition code. The condition code 

(General Register 15) is set to zero (O) if relative generation 
zero (O) or other explicitly specified relative generation exists, 
otherwise it is set to 04 with one exception: if a PARM value is 
not supplied by the user, the condition code is set to 08. 

1.3 The program does not make a validity check for a valid GDG 
DSNAME base (or index). 

1.4 The minimum core requirement is 6K. 

2. EXAMPLES OF USE 

2.1 In the following examples, assume ABG.DEF to be the DSNAME base 
(or index) of a generation data group. 

2.11 //EXEC PGM=TRMUST06,PARM=*ABC.DEF* 

2.12 An equivalent expression to the above example is: 

// EXEC PGM=TRMUST06,PARM=»ABC.DEF(0)» 

2.13 The existence of old generations may also be tested 

// EXEC PGM=TRMUST06,PARM=»ABC.DEF(-2)' 

The return code will be set to 04 unless at least three 
generations are cataloged. 

3. REFERENCE 


Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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CATALIST - CATALOG LISTING 


1. GENERAL 

1.1 CATALIST is a Western Electric utility program that will 
selectively list the contents of an OS catalog. This 

program provides more information than the IBM lEHLIST utility 
and prints the data in a more readable format. 

2. EARM FORMAT 

2.1 To list members of a Production or Development catalog, 
one must use the FARM field which has the following 

format: 

PARM“ 'cvolnl(node 1,node2),cvoln2(node!,node4)V 

cvol n - is the serial number of the control volume 
to be listed. 

2.12 node n - is the node point to be listed. 

2.2 If no FARM is specified, CATALIST will list the entire 
catalog on the system residence volume of the particular 

system on which the job is running. 

3. JCL STATEMENTS 

3.1 In general the following JCL is required: 

// EXEC PGM“CATALIST,REGI0N=i4K 
//SYSPRINT DD SYS0UT*A 

3.2 If the control volume is not permanently mounted, a 
DD statement should be added to mount the volume, 

4. EXAMPLES OF USE ; : 

4.1 Example 1: List the entire catalog on the system 

residence volume. 

// EXEC PGM*CATALIST,REGI0N“14K 
//SYSPRINT DD SYSOUT“A 

4.2 Example 2; List the entire catalog on volume PROD06. 

// EXEC PGM=CATAL1ST,REGION=14K,PARM=PROD06 
//SYSPRINT DD SYSOUT-A 
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4.3 Example 3: List the cataLog below node points DEV05.F00 

and DEV05.F96 on volume TEST05. 

// EXEC PGM«CATALIST,REGION“14K, 

// PARM»*TEST05(DEV05.F00,DEV05.F96)* 

//SYSPRINT DD SYS0UT=A 

4.4 Example 4; List the catalog below node points DEV05,F96 

on volume TEST05 and PRDT6.PEA and PRDG6.REA 
on volume PRODO4. 

// EXEC PGM=CATAL1ST,REGION*14K, 

// PARM»'TEST05(DEV05.F96),PROD04(PRDT6.PEA,PRDG6.REA)' 
//SYSPRINT DD SYSOUT 

5. REFERENCE 


5.1 Cataloged procedure CATALIST in Division 3, Chapter 5, 
Sec tion 1. 

5.2 SOFTWARE-X-CHANCE (12-26-73) "CATALIST" Ref. #A-32 
Author - E. Wasserman, Headquarters Data Center 

5.3 Questions may be directed to J. R. Jackson, Dept. 9443, 
Columbus. 
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CATAUTIL >• CATALOG MAINTENANCE UTILITY 


1. GENERAL 

1.1 CATAUTIL is a Western Electric utility whose 
purpose is to perform functions oh the catalog 

that are not available through lEHPROGM. 

1.2 CATAUTIL incorporates the following facilities: 

1.21 Delete an index and all subordinate indexes 

and uncatalog any data sets that are subordinate 
to these indexes. 

1.22 Change generation data group index specification 
without previously uncataloging all data sets 

and subsequently re--cataloging all data sets. 

1.3 The return code will be the highest one encountered 
in the execution of the program. 

2. CONTROL CARDS 

2.1 The control card for deleting an index is as 
follows: 

label DLTINDEX INDEX*name,GVOL»seriaI 
where; 

2.11 INDEX«name ; 

Specifies the index level that is to be deleted 
and this includes deleting of all subordinate 
indexes and uncataloging all subordinate data sets, 

2*12 CVOL*serial 

Specifies the volume serial number of the 
control volume on which the search for the 
index is to begin. If CVOL is omitted the index should 
either reside on the system residence volume or on 
a volume that is appropriately connected to by the 
first level of the index. 
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2.2 The control card for changing a Generation Data 
Group index specification is as follows: 

label CHNGBLDG INDEX«name* ENTRIES=»n, 

OPTION-option,CVOL«serlal 

where: 

2.21 INDEX-name 

Specifies the name of the Generation Data Group 
index that is to be changed. 

2.22 ENTRIES»n 

Specifies the new number of entries for the 
Generation Data Group index which must not 
exceed 255. 

2.23 OPTION-option (if omitted, the default is L) 

Specifies one character option selection as 
follows: 

OPTION MEANING 

L Leave option as previously specified. 

E Empty option as stated for BLDG 

statement in the IBM utilities 

manual. 


D Delete option as stated for BLDG 

statement in the IBM utilities 
manual. 

B Both Empty and Delete 


N Neither Empty or Delete - just 

uncatalog 

2,24 CVOL “Serial 

Specifies same as in paragraph 2.12. 
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3* JCL STATEMENTS 

3*1 In general the following JCL is required 

// EXEC PGM=*CATAUTIL 

//SYSPRINT DD SYSOUT«A 

//SYSIN DD * control cards follow 

3.2 If the control volume is not a permanently resident 
volume then a DD statement should be placed in 

the JCL to insure the volume is mounted. 

3.3 The basic module takes 24K to execute and requires 
additional 2K for each 30 data sets cataloged in 

a Generation Data Group that is being changed with a 
CHNGBLDG control card. 

4. EXAMPLES OF USE 

4.1 Example 1: There exists two Generation Data Groups 
below the NODE A.B both of which are no longer 

needed• 

// EXEC PGM»CATAUTIL 
//SYSPRINT DD SYSOUT-A 
//SYSIN DD * 

DLTINDEX INDEX«A.B 

4.2 Example 2: The number of entries for Generation 
Data Group index A.B.C Is to be changed from 15 

to 35 and the option is to be left as is. 

//EXEC PGM»CATAUTIL 
//SYSPRINT DD SYSOUT-A 
//SYSIN DD * 

CHNGBLDG INDEX«A.B.C,ENTRIES-35 

4*3 Example 3: The option of delete is to be removed 
for Generation Data Group index A.B.D on control 
volume 222222. 

// EXEC PGM“CATAUTIL 
//SYSPRINT DD STSOUT-A 
//SYSIN DD * 

CHNGBLDG IIDEX«A . B . D , OPTION-'N, 

CVOL-222222 
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5. RESTRICTIONS 

5.1 CATAUTIL may not be used for a generation data set 
which contains an entry which resides on more than 

five reels, 

6. REFERENCE 

6.1 Description of lEHPROGM in I.B.M. Operation System 
Utilities Manual (GC28-6586). 

6.2 Cataloged procedure CATAUTIL in Division 3, 

Chapter 5, Section 1. 

6.3 Questions may be directed to J, R. Jackson, Dept. 9443 
Columbus. 
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DATA PROCESSING SYSTEM PROGRAMMING AIDS 


UTILITY PROGRAMS 


SECTION 3 - COMMERCIAL SOFTWARE PRODUCTS 




1. INTROrajCTION 

1.1 The programs described in this section are proprietary software systems 
that are leased from commercial software vendors. This material is 

presented for the purpose of informing the programmer of the general functions 
and services performed by these programs. It is not intended to be a tvitorial 
on the use of these programs as reference is mads to various Users Manuals 
and Reference Guides which contain a complete description of the product and 
an explanation of its use. 

1.2 Cataloged procedures have been prepared to facilitate use of these 
programs, and are described in Division 3, Chapter 5, Cataloged 

Procedures. 

1.3 Appendix A, Commercial Software Products Reference List, directs the 
user to brief descriptions of the general functions of the programs. 
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COMMERCIAL 

SOFTWARE PRODUCTS REFERENCE LIST 




PROGRAM NAME 

FUNCTION APPENDIX 

PAGE 

j 

AUTOFLOW 

Produce flowcharts from 
program source language 
statements 

B 

3 

n 

DSF 

Dump-restore any disk data 
set or physical disk segment 
to magnetic tape 

K 

19 


IMS (DB & DB/DC) 

OS based programs supporting 
user-written batch processing 
and teleprocessing applications 

H 

12 

; n 

LIBRARIAN 

Storage and retrieval system 
for developing and maintaining 
source programs and other card- 
image statements 

C 

4 


METACOBOL 

A pre-compile package which 
assists the programmer in 
writing, testing, debugging 
and improving ANS COBOL source 
programs 

G 

10 


HITS (ATS) 

An on-line system consisting 
of control and application 
programs that permits many 
different text-processing and 
data-handling activities to be 
carried on simultaneously 
through different communication 
terminals 

I 

14 

o 

OPTIMIZER II 

Reduces program core requirements 
and execute time by optimizing 

ANS COBOL compiler produced 
object module 

F 

9 


RE-ACT 

A five program interpretive 
package for use in retrieving 
data from sequential or index 
sequential data files, producing 
formatted reports as output 

J 

17 


SORT, SYNCSORT III 

Sort or merge records 

D 

' 1 


SMS/360 (PPE) 

Study of application program 

E 

8 


performance 
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AUTOFLOW 


1. INTRODUCTION 


1.1 AUTOFLOW is a proprietary software system leased from Applied Data 
Research, Inc. The basic function of AUTOFLOW is to translate the 

source language of a program into a two-dimensional flowchart. Auxiliary 
listings are produced each time a flowchart is generated. These listings 
may be used as an aid in analyzing and evaluating the source program. 

1.2 AUTOFLOW components included in the Warrenville Data Center 
package are: 

ASSEMBLY FORTRAN 

COBOL/CHART PLl 

COBOL/COMPRESS PLl/CHART 

COBOL/XDDA 

1.3 Source program listings produced by AUTOFLOW have been accepted as 
part of the final documentation package required by Headquarters. 

1.4 AUTOFLOW accepts as input source programs written in COBOL, FORTRAN, 
ASSEMBLER, or PL/I programming languages. Additional information may 

be found in the following AUTOFLOW reference manuals: 

a. Introductory Guide 

b. AUTOFLOW Reference Guide - COBOL series 

c. AUTOFLOW Reference Guide - FORTRAN series 

d. AUTOFLOW Reference Guide - ASSEMBLER series 

e. AUTOFLOW Reference Guide - PL/I series 

f. AUTOFLOW Operation Guide - IBM System/360 

1.5 A cataloged procedure has been prepared to facilitate use of the 
AUTOFLOW package. A description of the procedure and sample JCL 

for executing the procedure are described in Division 3, Chapter 5, 
Cataloged Procedures. 
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LIBRARIAN 



1. INTRODUCTION 

1.1 LIBRARIAN is a proprietary software system leased from Applied Data 
Research, Inc. It is a generalized data storage and retrieval system 

designed specifically to assist programmers in developing and maintaining 
source programs. Its usefulness, however, can be applied to storage of other 
card-image statements. 

1.2 The LIBRARIAN source program preparation and maintenance facilities 
enable a programmer to: 

a. Add, delete, and replace entire modules or specified card 
images within a module. 

b. Change strings of characters in card images* 

c. Search for strings of characters appearing in one or more modules. 

d. Sequence the card numbers of new modules added to the master file. 

e. Syntax check COBOL modules added to or updated on the master file. 

f. Print and/or punch selected modules. 

g. Store descriptive and historical commentary about a module. 

h. Combine parts (or all) of several existing modules into a single 
new module. 

i. Place commands in one module which specify inclusion of other 
modules* 

Note: Master file and module are defined in LIBRARIAN reference 
manuals as: 

"master file" - a pre-allocated area of space, disk or tape, 

in which data is stored in a compressed format. 

"module" - can be a source program, a test data file, a 
’ collection of JCL statements, or any other grouping 

of card-oriented information. 

1.3 A module can be updated and made available for processing by a subsequent 
job step. LIBRARIAN can also be directed to produce a complete job 

stream including the JCL necessary to compile, link-edit, and execute the 
module. 
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1.4 To facilitate program checkout, the LIBRARIAN system permits temporary 
changes to be made to a module for testing purposes before they are 

permanently applied to the master file module. There are also provisions 
for simultaneously maintaining test and production versions of the same 
module. 

1.5 Additional information may be found' in' the following LIBRARIAN Reference 
Manuals; 

a. Introductory Guide 

b. User Reference Manual 

c. 0/S System Reference Manual 

d. Concepts and Facilities for EDP Managers 

1.6 A cataloged procedure has been prepared to facilitate use of the LIBRARIAN 
package. A description of the procedure and sample JCL for executing the 

procedure are described in Division 3, Chapter 5, Cataloged Procedures. 
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SORT, SYNCSORT III 

1. INTRODUCTION 

1.1 Syncsort III is a generalized sort/merge program for IBM 
S/360 and S/370 computers which operates under OS or OS/VS 

and is a leased product from Whitlow Computer Services. 

1.2 To execute the sort/merge program, the user must prepare 
two types of statements: 

1.21 Job Control Language (JCL) statements, describing input 
and output data sets, which are processed by the operating 

system. 

1.22 Program control statements, describing the users* input 
records and how they are to be sorted or merged, which 

are processed by the sort/merge program. 

1.3 Syncsort III sort/merge program operates under the operating 
system control program. JCL statements must be supplied 

for the operating system to initiate and execute the sort/merge 
program and perform the desired sort/merge application. Data sets 
used by the program must be defined according to operating system 
standards (data definition statements) and must be placed in 
the input stream with the job step that initiates the sort/merge 
program. This includes defining input and output data sets and 
intermediate storage space used as work areas. 

1.4 Program control statements describe the input data, provide 
information about the control fields in the input records 

which the program will sort or merge, and describe any user exit 
routines the user may include during program execution. The control 
statements also include whether the operating system*s checkpoint/ 
restart facility is to be utilized, and whether sorting should 
begin on a record other than the first record in the input data set. 

2. SPECIAL FEATURES 

2.1 The sort work file restrictions have been modified to 

significantly reduce the chances of a sort failure due to 
the lack of available disk space or under allocation by the user. 

2.11 The sort work files no longer require contiguous space, 
therefore, it may be omitted from the DD cards or if 
supplied it will be ignored. 






n 

n 
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2.12 Syncsort III provides an automatic correction for under- 
allocation of sort work files by means of secondary 

allocation within the following limits. If space was allocated in: 

1) cylinders, then Syncsort will acquire up to an additional 
10 cylinders. 

2) tracks, then Syncsort will acquire up to an additional 
200 tracks. 

3) blocks, then Syncsort will acquire up to an additional 
100 blocks. 

2.13 Syncsort III requires a minimum of one sort work file 
and requires less sort work space than previous sort 

packages (up to 50 per cent more data can be sorted within a 
given disk space). I 

2.2 Syncsort III supports the use of 2311, 2314, 3330, 3330-11, 
3340, or any combination of these devices. 

2.3 Sort Load Auditing System - Syncsort may be integrated 
with a special auditing system package and used to collect 

sort data, develop sort standards, and monitor the implementation 
of these standards. At the completion of each sort, Syncsort 
produces a statistical record which contains: 

a. characteristics of the input file 

b. resources allocated to the sort 

c. performance of the sort 

d. facilities used by the sort. 

These records may be added to the SMF file. The Sort Load Auditing 
System may be used to select these records from SMF and obtain 
a detailed profile of the total sorting load. 

2.4 Alternate FARM Feature - Syncsort allows the parameters 
that are passed to the sort by a calling program to be 

changed without recompiling the calling program. To modify 
the parameters passed to the sort the user provides the following 
in the JCL deck: 

//$0RTPARM DD * 

j&PERATI^N PARAMETERl,Pi^AMETER2,... , PARAMETERlb 

2.5 Sort Optimization Tools - SYNCSIM and HISTOGRM, which 
enable a sort user to optimize the performance of a sort, 

and SORTSTAT, a module which provides the user with detailed 
Information about a sort are distributed with Syncsorti. 
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2.51 SYNCSDl Is a short simulator which can be used to determine 
the optimal environment.for a sort or class of sorts. 

Its output contains such Information as elapsed time, number of 
I/O accesses, or CPU time which pertain to the performance of 
the sort. 

2.52 HISTOGRM scans variable length records and provides 
information such as minimum/maximum record length, 

the modal length, and total number of bytes. 

2.53 SORTSTAT provides the user with statistics about a 
sort such as the number of EXCP's to the sort work 

data sets, merge orders used, number of strings generated, etc. 

2.6 The ddname for the sort message data set will be SYSOUT for 
normal execution of SORT and SORTPRNT for an Internal sort . 

If the DD statement Is omitted, all non-crltlcal messages will be 
suppressed while critical messages will be directed to the system 
console. Assembler programs can respeclfy the SORTPRNT ddname. 

2.7 Logical record lengths may be less than 18 bytes. 

3. PARK DEFAULTS 

3.1 COREaMAX: This is the default value and recommended value for 
CORE. It will cause all core within the requested region to 

be used. In an Internal sort 16K will be reserved for the use 
of the main program (e.g. opening files In an input or output 
procedure). The maximum amount of core that Syncsort will use in 
an OS/VS2 environment regardless of any CORE parameters or defaults 
is 192K. 

3.2 MSGsAF: All messages are placed in the sort message data 
set (SYSOUT or SORTPRNT). Critical messages are directed 

to the system console. 

3.3 LIST; Sort control statements from a normal execution of 
SORT will be printed. 

3.4 Any of these FARMS may be respecified through the use of the 
$ORTPARM DD * control cards. 

4. REFERENCE 

4.1 Additional information may be found in the "SYNCSORT III 
PROGRAMHER»S GUIDE" from Whitlow Computer Services which is 

available from the "location coordinator". 

4.2 A cataloged procedure has been prepared to facilitate use 

of the SYNCSORT III program. A description of the procedure 
and sample JCL for executing the procedure are described in 
Division 3, Chapter 5, Cataloged Procedures. 
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SMS/360 PROBLEM PROGRAM EFFICIENCY (PPE) 

!• INTRODUCTION 

1.1 Systems Measurement Software (SMS/360), Problem Program Efficiency 
(PPE) is a proprietary software system leased from Boole 6c Babbage, 

Inc. The PPE product measures the efficiency of problem programs and points 
out areas that would benefit most from the programmer’s attention. The PPE 
system is composed of two programs, the Extractor and the Analyzer, which 
are described in the following paragraphs. 

1.2 The Extractor program samples the problem program under study at a 
rate specified by the user for the given run. Extraction of data 

starts when the problem program begins executing, and terminates upon 
completion of the problem program under study. This data is recorded on tape 
or disk for subsequent analysis by the Analyzer program. 

1.3 The Analyzer program, using data produced by the Extractor program, 
generates the reports used to evaluate the overall program efficiency. 

An Analyzer run can be made immediately following the completion of an 
Extractor run, or at a later time if the Extractor output data set is saved. 
The Analyzer can accept one or more extractor data sets for combination onto 
a single report. Depending on the options selected, the report may include: 

a. A histogram showing the percentage of time spent in various 
sections of the user program. 

b. A distribution of I/O wait time associated with each data set. 

c. A module map listing all the modules used during execution of 
the job step and a percentage of time spent in execution of the 
module. 

d. A percentage of time spent in executing SVC’s. 

1.4 Additional information may be found in the following SMS/360 Systems 
Measurement Software Reference Manual: 

SMS/360 Users Guide for PPE 

1.5 A cataloged procedure has been prepared to facilitate use of SMS/360 
Problem Program Efficiency. A description of the procedure and sample 

JCL for executing the procedure are described in Division 3, Chapter 5, 
Cataloged Procedures. 
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CAPEX OS 360/370 COBOL OBJECT CODE OPTIMIZER II 


1. INTRODUCTION 

1.1 The Capex OS 360/370 COBOL OBJECT CODE OPTIMIZER II is a proprietary 
software product leased from the Capex Corp. It examines the procedure 

division object code generated by a COBOL ANS compile and reduces the core re¬ 
quirements for execution of the program (II, III and IV versions)* 

1.2 Gore requirements reduction is achieved by substitution of efficient 
code for some of the inefficient code normally generated by the COBOL 

compiler. Core reduction is the result of fewer machine instruction in the 
optimized objective module, thereby reducing the running time of the optimized 
program as well. 

2. WHEN TO USE 

2.1 Execution of the OPTIMIZER II requires from 20^ to 70% of compile time and 
therefore should be executed only as the final step in new system develop¬ 
ment or executed to improve the performance of current stable production programs. 

2.2 Since the OPTIMIZER II only deals with the machine instructions, a program 
with a large PROCEDURE DIVISION is a better candidate than a program with 

a small PROCEDURE DIVISION. Programs which are CPU hound will achieve greater 
benefits than prograns that are l/O bound. 


3. INPUTS 

3.1 Input to the OPTIMIZER II are the compiler produced object module and listing 

4. OUTPUTS 

4.1 Output from the OPTIMIZER II are the optimized object module and OPTIMIZER 
II produced listing. This listing enables cross-referencing the original 

COBOL source module entries with the map of optimized program, 

5. REFERENCE . ^ 

5.1 Additional information may be found in the Capex Corp. 360/370 COBOL 
OPTIMIZER II USERS GUIDE. 

5.2 Catalogued procedures have been prepared to facilitate the use of the 
Capex OPTIMIZER II program* A description of these procedures and sample 

JGL for executing the procedure are described in Division 3, Chapter 5, 

Cataloged Procedures. 
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^tETACOBOL 




1. INTRODUCTION 





1.1 MetaCOBOL is an Applied 

Data Research 

(ADR) proprietary software system 


which assists the programraer in writing, testing, debugging, and improving 
COBOL source programs. The basic MetaCOBOL System, which is operational on an 
IBM/360 or /370, provided facilities ranging from simple substitution to conditional 
generation of sets of standard COBOL statements. Three extensions to the basic 
system -- the Test Data Generator, Run-time Debugging Aid, and COBOL Performance 
Monitor -- facilitate COBOL program testing, debugging, and operational improvement 
respectively. These extensions are described in Chapters 6-8 of the ADR METACOBOL 
Users Guide. 

1.2 MetaCOBOL utilizes macro procedures to search an input source program for 
words, word sequences, and syntax patterns ^^7hich, when encountered, cause 

these x<7ords to be replaced according to rules defined XA^ith.in the macro procedures 
themselves. (For further details, consult MetaCOBOL Macro Writing, Volumes 1 & 2 .) 
The primary output from MetaCOBOL is a standard COBOL source program. The basic 
Translator can be used to: 

1.21 Permit abbreviations for required COBOL words and phrases or user data 

and procedure names. . 

1.22 Add entirely new verbs and functions to COBOL. 

1.23 Generate COBOL source programs in standardized formats. 

1.24 Syntax check generated COBOL output prior to compilation- 

1.25 Perform various Utility functions on existing COBOL source --such as 
conversion from one compiler level to another, installation standards 

enforcement, S3’-stems management, paragraph numbering, etc. (COBOL F conversion 
to Ai‘u> COBOL Is included.) 

1.3 The MetaCOBOL Test Data Generator (TDG) is used to create a COBOL source 
program which will generate test data files. This facility allows the pro¬ 
grammer to specify the manner in which data is to be generated. 

1.4 The Run-time Debugging Aid (RDA) allows the programmer to print, during 
program execution, the contents of selected portions of the DATA DIVISION 

in a form which clearly relates the data to the field names in the source program. 

If an abnormal termination should occur, the programmer may obtain a list of the 
names of the last "n" paragraphs, where "n'V is determined by the programmer. 
Processing may then resume after the instruction that caused the abnormal termina¬ 
tion. The names of any unexecuted pvaragraphs can also be listed. 
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m-iAo 

OBOl. (Cent.) 





Tbc COBOL PerfoTinriiicc Hoiii.tor (CPM) is used to (L'tfTmlne tlic re.lritive "cost” 


of each parap.raplV In an oporaJ>le propram, thus isolating for improvement 
thiOSG paragraphs having the greatest erfect on overall program performance. 

1.6 METACOBOL macros and utilities available are stored on the SYS2.METACOB.SLIB 

anti SYS2.METALIB partitioned data sets which are concatenated for the "SYSLIB" 
data set in the cataloged procedure 'IffiTA" which is documented in Division 3» Chapter 
5, Section 1, of this nsanual. Any locally developed macros should be stored on a 
separate PDS concaternated to tlie alcove SYSLIB PDSs. When full documentation of 
the macros functions is available, a copy furnished to the Warrenville operations 
department along with a request to add tiie macro to one of the above PDSs, will 
make the new macro available to all Warrenville Data Center users. 

1.7/ Additional Information required for the use of iflTIAGOBOL is contained in 
the following ADR METACOBOL manuals. 

A. User Guide 
. B. MACADR . 

C. Macro Facilit}'^^ Reference Manual 

D. Macro '/riting Volume 1 and 2 

1.B A catalojpied procedure has been prepared to facilitate use of the 

MEtllCOBOL package. /> description, of tiie procedure and sample JCL for 

executing this procedure are described in Division 3, Chapter 5, Cataloged Pro¬ 
cedures. . , 







Western Electric Company Division 3 Chapter 2 

Warrenville Data Center 12. Section 3 Appendix H 

PROGRAMMING S & R MANUAL Issue ]_ Date 2/01/74 

INFORMATION MANAGEMENT SYSTEM/360, 

VERSION 2 - IMS 


1. INTRODUCTION 

1.1 IMS is an OS based IBM program product which supports user-written batch 
processing and teleprocessing applications. It provides supervisory 

level services in two categories. 

- Data base management services which support the implementation 
of multiple applications in a common data base environment. 

- Data communications management services which support the 
implementation of multiple applications in a shared terminal 
environment. 

1.2 The IMS package consists of two features. 

- Data Base System (DB) providing data base management services. 

- Data Communication System (DC) providing data communication 
management services. 

DB is a prerequisite for the DC service, hence either the DB or DB/DC Systems 
can be utilized. 

1*3 Applications which operate within the environments supported by DB or 
DB/DC Systems may be either batch-oriented or transaction-oriented. 

Batch and transaction-oriented applications may execute concurrently or 
separately. 

1.4 The Interactive Query Facility (IQF) feature is available to users of IMS 
DB or DB/DC. The feature offers the Capability for on-line retrieval and 

display of data maintained within IMS data bases. 

1.5 For additional information refer to Division 1, Chapter 1 and 2 and to 
the materials referenced in paragraph 3 of this section. 

2. PLANNING 

2.1 IMS DB and DB/DC services are available to support new applications. 

Hardware resources to support the system are planned and allocated on the 
basis of approved projects. Proposal preparation and project planning are to be 
coordinated with Department 9411 - Computer Systems Software Development and 
Operations (Warrenville). Department 9411 will assist in the development and 
implementation of IMS DB and DB/DC oriented projects. 
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INFORMATION MANAGEMENT SYSTEM/360, VERSION 2 - IMS (CONT.) 




3. REFERENCES . 

3.1 Informatioh Management System/360, Version 2, General information Manual. 
IBM order number GH2G-0765 

3.2 Information Management System/360, Version 2, System/Application Design 
Guide. IBM order number GH20-0910 

3.3 Information Management System/360, Version 2, Application Programming 
Reference Manual. IBM order number GH20-0911 


! L^- 


3.4 Information Management System/360, Version 2, Utilities Reference Manual. 
IBM order number GH20-0915 


3.5 Information Management System/360, Version 2, Messages and Codes Reference 
Manual. IBM order number SH20-0914 


3.6 Interactive Query Facility (IQF) for lMS/360 Version 2, General Information 
Manual. IBM order number GH20-1074 
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MANAGEMENT INFORMATION AND TEXT SYSTEM - MITS 








1. INTRODUCTION 

1.1 The Administrative Terminal System (ATS) designed and developed 

by IBM has been enhanced. The expanded version of ATS is marketed 
by H and B Computing of Placentia, California with the title Management 
Information and Text System (MITS), MITS consists of control and functional 
programs that, permit many different data and text input, editing and 
formatting activities to be carried on simultaneously through typewriter 
terminals attached to an IBM SYSTEM/370 Computer. The system was designed 
for application as follows: 

-• Publication of large volume transcripts 

- Publication and revision of technical manuals and specifications 

- Preparation of proposals 
~ Report writing 

- Source data entry at the point of origination. 

- Immediate updating and verification of files. 

- Hard copy message delivery between terminals. 

2. CAPABILITIES 

2.1 The basic ATS programming provides the MITS user the following 
capabilities. 

2.11 Enter information into MITS via typewriter keyboard, card reader, 
or magnetic tape. 

2.12 Store existing text and data files. 

2.13 Management control and operational responsibility for his text and 
data files. 

2.14 Time-share activities with other data processing activities on the 
same computer. 

2.15 Produce Output from rough draft input: including automatic page 
headings, footings, page numbering, and right-margin justification. 

2.16 Intermix free-form and fixed format information. 

2.17 Produce remote or central output: high or low speed, uppercase or 
upper - and lower case printing, magnetic tape disk or punched card. 

2.18 Store, retrieve and update from a terminal any defined set of information 
and prohibit unauthorized retrieval of the information. 

2.19 Transmit messages to any other MITS terminal, including the 
MITS master console. 
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MANAGEMENT INFORMATION AND TEXT SYSTEM MITS (CONT.) 



2.2 The H and B Computing enhancements of ATS provide the HITS user 
the following additional capabilities. 

2.21 Extract, change, or report statistical information from the 
data or information entered. 

2.22 A series of programmed operations can be stored for repeated 
execution. 

2.23 On-line (MITS) sorting of up to eleven fields of any working 
storage information. 

2.24 Segmentation of large documents 

2.25 On-line formatting of data fields 

2.26 Release JCL text from MITS to ASP. 

2.27 Message transmission to OS master console. 

2.28 For complete information on enhancements see the manuals 
listed in paragraph 5. 

3. PLANNING 

3.1 MITS is an on-line system. Hardware resources to support the 
system are planned and allocated on the basis of approved pro¬ 
jects requiring MITS capabilities. Proposal preparation and project 
planning are to be coordinated with Department 9414 - Information 
Systems Development, Key Data Entry, Management Information Systems 
(Warrenville). Department 9414 will assist in the development and 
implementation of MITS projects and/or information systems using 
MITS as a sub-system. 

4. HOURS OF OPERATION 

MITS programs are initiated Monday through Friday of each week at 
7:00 A.Mi and terminated each day at 7:00 P.M. (Warrenville time) 

5. REFERENCES 

5.1 MITS/370 Users Manual 

5.2 MITS/370 Terminal Operator's Manual 
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5.3 System/360 Administrative Terminal System - Program Description 
Manual. IBM Order Number GH20-0582. 

5.4 System/360 Administrative Terminal System - Terminal Operator’s 
Manual. IBM Order Number GH20-0589. 

5.5 System/360 Administrative Terminal System ~ Application Descrip¬ 
tion Manual. IBM Order Number GH20-0297. 
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RE-ACT - DATA RETRIEVAL/REPORT FORMATTING SYSTEM 

1. INTRODUCTION 

1.1 RE-ACT is a proprietory software package made up of five BAL programs 
(REACT!, REACT2j REACT3, REACT4 and REACT6) which is procured by CASO 

from Boeing Computer Services. The system accepts conversational English 
phrases to retrieve information iind generate desired reports. Although the 
complete system is designed to perform the four basic functions of Retrieval, 
File Maintenance, Matrix and Special Utilities, the Western Electric module 
contains only the Retrieval function. This module logically extracts data 
from users files, processes the information when necessary, and then 
formats and writes reports on an output medium (printer, magnetic tape or 
card punch). 

1.2 RE-ACT requires an initial definition of the file (data base) in a 
data name table; these field names may consist of up to 20 characters, 

including special characters, allowing the requests to be self-documenting. 

In addition, an elementary security code disallows designated fields from 
being retrieved by unauthorized personnel. Currently existing files are 
accessable by RE-ACT as long as they have fixed length records and are 
sequential/indexed-sequential in organization. 

1.21 Variable length records and/or multiple input files can be 

handled by utilizing user-written code (BAL) at READ time; this 
facility is the only user-exit in RE-ACT. 

2. RE-ACT FUNCTIONS 

2.1 Requests to the system are simple to generate because there are 

only nine (9) verbs and only one special character* Up to forty (40) 
reports can be produced in one pass of the file. 

2.2 Users may sort on multiple fields (up to 50 characters) in ascending, 
descending or intermixed order. The descending sort can only be used 

for fields defined to RE-ACT as numeric or packed data. It is also possible 
to sort on computed fields. 

2.3 Summary reports can be combined with detailed reporting or produced 
alone. RE-ACT provides up to five (5) levels of subtotals as well 

as grand totals. Summarized reports can be only one print line per output 
record whereas detailed reports may have up to ten (10) "XNrraparound" print 
lines. 

2.4 Flexible formatting allows the user to generate multiple page and 
column headings, designate desired spacing, and provide standard 

edit masks on printed numeric fields (e.g. leading zero suppression, 
floating or fixed dollar sign, slashes, dashes, etc.). The user can 
cause frequently-used report formats to be automatically generated (AUTOFORM) 
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2.5 RE-ACT provides facilities for the user to set up internal counters 
and use COMPUTE/analyze statements to obtain such values as might 

be desired (e.g. averages). 

2.6 A re-retrieve capability that allows the user to retrieve records 
based on general criteria, perform various computations, and then 

retrieve a;gain based upon the new computed criteria. This facility allows 
exception reporting and enables the user to report only the specific 
information desired. 

3. REFERENCE 

3.1 "RE-ACT System" manual. 

4. CATALOGUED PROCEDURE 

4.1 A catalogued procedure has been provided to facilitate use of the 
RE-ACT System. A description and listing of the procedure and 

sample JCL for executing the procedure are described in Division 3, Chapter 5 
Catalogued Procedures. 


Division 3 Chapter 2 
Section 3 Appendix J 
Issue 1 Date 03/29/74 
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1. INTRODUCTION 

1.1 DSF is a proprietary utility program of Innovation Data Processing 
which dumps any disk data set or physical disk segment to magnetic 

tape. It also restores data sets by name and physical disk segments from 
DSF generated tapes. 

1.2 For sequential and partitioned data sets, DSF dumps and restores 
the used space, while.for all other data sets it dumps and restores 

all allocated space. 

2. ADVANTAGES 

2.1 DSF is a faster method of dumping and restoring disk data sets 
than provided by OS standard utilities. 

2*2 DSF is less expensive to run because of I/O, CPU, SIGMA, and MBS 
times which are lower than a comparable run of standard OS 
utility programs, 

2.3 Control statements required for DSF are simple. jCL provides 
for device allocation and volume identification while the DSF 

control statement specifies the action, DUMP or RESTOREj and 
the data sets. 

2.4 Stacking is simplified. Up to ten data sets may be dumped from 
the same volume as a single "dump data set" and yet restored 

selectively, 

3. DISADVANTAGE 

3.1 Data sets to be restored must be preallocated with sufficient 
primary space to contain the data, 

3.2 Only a single disk volume may be referenced in an execution of 
DSF. 

3.3 Data sets are restored with the original creation date, hence they 
cannot be safely restored to "storage class" packs (ie STORnn) 

which are subjected to a date dependant scratch utility, 

4. SUGGESTED USES 

4.1 DSF can be Used to back up any disk data set oh tape. 

4.2 DSF can be used to facilitate off-line storage of disk data 
sets on tape. DSF will rapidly load and unload them to and 

from disk volumes. Up to ten data sets located on the same disk may 
be unloaded to the same tape. 
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DSF, DATA SET FUNCTIONS, DATA DUMP/RESTORE UTILITY (CQNT.) 

5. PERFORMANCE COMPARISON 

The following information gives comparative figures for dumping and 
restoring a direct access file using the O.S. utility, lEHMOVE and DSF# 


lEHMOVE 


Dump Restore 


EXCP 52,596 52,623 

I/O 4 min/9 sec. 7 min/28 sec. 

CPU 30.43 sec. 22.37 sec^ 

CORE 66K 62K 

QCM COST $117.45 $214.12 


6. SAMPLE JCL 


DSF 


Dump 

646 

45 sec. 
2.87 sec. 
92K 
$22.78 


Restore 

882 

47 sec. 
1.37 sec. 
76K 

$ 22.86 


6.1 EXAMPLE 1. Dumping two data sets. 

//DMP EXEC PGM=FDRDSF,REGI0N=94K,ADDRSPC=REAL 
//SYSPRINT DD SYS0UT=A 

//DISKI DD UNIT=DISK,DISP=SHR,V0L=SER=PV0L63 
//TAPEl DD UNIT=TAPE,DSN=PRD4.DPH.DUMPDSF, 

// DISP=(,CATLG),LABEL=RETPrfe60 

DUMP DSN=PRD4.DPM,MASTER1 
DUMP DSN=PRD4.DPM.TABLEX - 


6.2 EXAMPLE 2. Restoring one data set. 

// EXEC PGM=FDRDSF,REGI0N==8OK,ADDRSPC=REAL 
//SYSPRINT DD SYS0UT=A 

//DISKl DD DSN=PRD4.DPM.MASTER1,UNIT=DISK,V0L=:SER=PV0L63, 
// DISP=( ,KEEP), sPACE=(5,1)) 

//TAPEl DD DSN=PRD4.DPM.DUMPDSF,DISP=0LD 
REST0RE DSN=PRD4.0PM.MASTERl 


6.3 When allocating a 3330 Model 11 it is necessary to identify the 
Model 11 by means of a DCB parameter, namely DCB=DEN-2. 

7. REFERENCE 

7.1 Additional inforn}ation can l^e found in Innovation Data Processing, 
Fast Dump Restore and Data Set Functions User Documentation. 

A copy of this publication is available at each location served by 
Warrenville. 



At Warrenville, two types of partitioned data sets are available for 
the efficient storage of small amounts of card image information. One 
type identified as PRDn.CONTROL is intendoi for holding information 
that remains relatively stable such as sort control statements or 
utility control statements. The second type identified as 
PRDn.PARMLIB is used for control information generated by an 
application program, perhaps to be passed to another job in the system 
or the next scheduled run. The distinction between the libraries is 
that PARMLIB‘s are open to update by programmers while CONTROL 
libraries can only be updated via the PLC system. 

What these libraries have in comraon is that their members usually 
occupy a small amount of space, a fraction of a track, Ihe advantage 
to our operation is that we are able to store up to 61 records per 
track. Consider the alternatives creating each member as a separate 
data set would result in using a full track for each equivalent 
member. For example, 61 single card manbers would occupy 61 tracks as 
separate data sets. 

Should these libraries be used for storing larger amounts of data, 
perhaps in excess of 60 records? No, because the records in these 
libraries are unblocked and do not efficiently store multiple record 
members. The CONTROL and PARMLIB originated as places to store 
information that came from the job stream (//SYSIN DO , 
consequently, they carry the record characteristics of instream data, 
80 characters and unblocked. They must maintain these characteristics 
to ronain conpatible with instream data. 

An a^lication that needs more than a track of 3330 space for storage 
of control information should consider a more efficient method of 
storage than provided by these card image libraries. Alternatives 
might include separate sequential data sets or a private partitioned 
data set efficiently blocked. For example, a blocksize of 800 
increases stor^e to 140 records per track, a blocksize of 12960 
provides 162 records per track, as opposed to 61 records per track 
unblocked. 

PARMLIB libraries should be considered for those applications that 
write one or two records on a track of space. Tiiere are some pre¬ 
cautions to be observed however, since PARMLIB*s are open to public 
update. Progranmers should employ a technique that either updates 
inplace or issues a device RESERVE. The sub-routine CCRETREV/CXIJPDATE 
provides the facility of updating inplace. The utility program 
ATTUPDTE, invoked in the procedure CB3PES, issues a RESERVE, We 
recommend its use for adding a menber to a PARMLIB initially. 




2 . 



We hesitate to define hard and fast rules for use of these libraries. 
We do request that users give some thought to storage of data ranging 
from one card to several hundred cards. Should the user decide to add 
data to our libraries that may exceed a track, we request a warning. 
The PAMLIB and CONTROL libraries currently range from 4 tracks to 5 
cylinders, consequently, unexpected large amounts of input can create 
problems, A user could fill a PARMLIB, or disrupt the scheduled 
update of PLC controlled libraries. An advance notice will allow us 
to take appropriate action to handle the situation. 
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DATA PROCESSING SYSTEM PROGRAMMING AIDS 
SUBROUTINES 
SECTION 1 - GENERAL 


1. INTRODUCTION 

1.1 A subroutine is a sequence of instructions that can be incorporated 
into a program to perform a specific operation. The subroutines 

presented in this section were developed by Western Electric personnel to 
simplify the writing of extensive coding of source programs to accomplish 
commonly required functions or to obtain commonly required data. 

1.2 Subroutines described in this Section are primarily intended for the 
COBOL programming language. They reside as load modules in the 

automatic call library, SYSl.COBLIB, referenced in the Data Center COBOL 
procedures. 

1.3 Appendix A, Subroutine Reference List, directs the user to an Appendix 
which contains a description of the subroutine and examples of usage. 



l ! 
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SUBROUTINE REFERENCE LIST 



SUBROUTINE NAME 

FUNCTION 

APPENDIX 

PAGE 

ADJUST! 

Remove leading blanks, field 
manipulation 

B 

3 

CALENDAR 

Convert calendar date to Julian 
date 

N 

28 

CCRETREV/CCUPDATE 

Control record retrieve and 
update in place 

C 

4 

CMPDATE5 

Apply an interval to a fiscal 
date 

D 

6 

CMPDATE6 

Apply an interval to a calendar 
date 

E 

8 

CVDATE 

Fiscal date conversion 

F 

10 

CVDATEF6 

Fiscal date conversion 

G 

11 

CVDATE6F 

Calendar date conversion 

H 

12 

FISCALPD 

Convert six digit fiscal date 
to Julian date 

0 

29 

FISCALWK 

Convert five digit fiscal date 
to Julian date 

P 

30 

GETDATE 

Date manipulation; PARM passing; 
set condition code 

I 

13 

GETTMT 

Unformatting transmission files 

J 

17 

PARMEXCD 

Obtain EXEC card PARM information 

K 

22 

PUTTMT 

Formatting files for transmission 

L 

23 

RANDOM 

A psuedo-random number generator 

Q 

31 

WESNAP 

Callable dump for debugging 

M 

27 
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ADJUST! - REMOVE LEADING BLANKS, FIELD MANIPULATION 


1. GENERAL 

ADJUST! is a subroutine which will remove leading blanks and left adjust 
an input field as it is moved to an output field. The output field size 
may be lengthened, shortened, or left unchanged. Field modification is 
accomplished by the user specifying a value corresponding to the number 
of bytes of the input record, beginning with the left-hand byte, that 
are to be "adjusted" and moved to the output record. The maximum size 
of the field to be "adjusted" is 256 characters. 

2. CODING REQUIREMENTS 

2.1 Data Division. 

Working-Storage Section. 

77 INREC PICTURE X (size of input field). 

77 0UTREC PICTURE X (size of output field). 

77 LGT PICTURE S999 VALUE +nnn COMP SYNC. 

where "nnn " is the maximum number of bytes to be moved including leading 
blanks. The value of "nnn ’* must be greater than zero and not greater 
than 256. 

2.2 Procedure Division. 

M0VE fieldname T0INREC. 

CALL 'ADJUST!> USING INREC, 0UTREC, LGT. 

3. EXAMPLES OF USE 

Example 1: Edit and left justify an 8 byte field. 

Input: ’ 123 ’ 

Result: '123 uuu' 

Example 2: Edit and left justify 6 bytes of an 8 byte field. The output 


field, defined by the user , is 10 bytes in length. 


Input: 

' 12 345' 



Result: 

'12 3uuuuuu’ 



Example 3: 

Edit and left justify 6 bytes of an 8 byte field, 
field, defined by the user, is 10 bytes in length. 

The 

output 

Input: 

'12345678' 



Result: 

'123456uuuu' 



Example 4: 

Edit and left justify 6 bytes of a 10 byte field, 
field, defined by the user, is 8 bytes in length. 

The 

output 

Input: 

' 12345678' 



Result: 

'1234uuuu' 




Note: In the above examples, "u" represents data that is unchanged from 

the previous use of OUTREC* The user may wish to initialize OUTREC 
prior to issuing the CALL statement. 
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CCRETREV/CCUPDATE - CONTROL RECORD RETRIEVE AND UPDATES IN PLACE 

1. GENERAL 

CCRETREV/CCUPDATE is a dual entry subroutine used to retrieve and update 
in place control type records which are passed from one run of a system to 
the next. It allows the user to do the following: 

a. Retrieve from one to three 80 byte blocks of information from 
a member of a library (CCRETREV entry point). 

b. Update the member in place within the same jobstep (CCUPDATE 
entry point). 

The CCRETREV/CCUPDATE module is approximately 600 bytes in length. 

2. CODING REQUIREMENTS 

2.1 Data Division. 

Working-Storage Section. 

The following should be coded and used as the argument in the CALL 
statement: 

01 C0NTR0L-INF0. 

03 RECl 
03 REG2 
03 REC3 

2.2 Procedure Division. 

CCRETREV/CCUPDATE is executed through a CALL statement coded as 
follows: 

CALL 'CCRETREV* USING C0NTR0L-INF0. 

CALL 'CCUPDATE' USING C0NTR0L-INF0. 

3. USING CCRETREV/CCUPDATE 

3.1 CONTROL-INFO is an area large enough to contain the complete member 
being retrieved and updated. After execution of CCRETREV, CONTROL-INFO 
contains the information obtained from the member of the partitioned 
data set. Before execution of CCUPDATE, CONTROL-INFO should contain 
the information to be passed via the member to the next run of the 
system. 

3.2 If the member retrieved by CCRETREV need not be changed* then it is 
not necessary to call CCUPDATE. However, a member may not be updated 
using CCUPDATE if a previous call to CCRETREV has not been issued in 
the same program. 


PICTURE X(80). 
PICTURE X(80). 
PICTURE X(80>. 


Division 3 Chapter 3 
Section 1 Appendix C 
Issue 1 Date 5/31/73 
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CCRETREV/CCUPDATE - CONTROL RECORD RETRIEVE AND UPDATE,(C0NT.) 

3.3 Information may initially be stored in the library by using the W.E. 
utility program ATTUPDTE (Div. 3, Chap. 2, Sec. 2). Do not code DCB 

information for the library since it is already present in the DSCB . 

3.4 An additional JCL DD card is required for use by the CCRETREV/CCUPDATE 
program. This card is named CNTRLREC and must specify the library and 

the member to be accessed. Coding for the library should be DISP=SHR. 

3.5 To test a program which calls CCRETREV/CCUPDATE, the user should first 
create a temporary partitioned data set containing his member. One 

track and one directory block should be allocated for this data set. Its record 
format must be fixed, with a record length and blocksize of 80. 

4. EXAMPLE OF USAGE 

4.1 The following ANS COBOL program was used while testing the CCRETREV/ 
CCUPDATE subroutine: 

IDENTIFICATI0N DIViSI0N. 

PR0GRAM-ID. UPDTTEST. 

DATA DIVISI0N. 

W0RKING-.ST0RAGE SECTI0N. 

01 C0NTR0L-INF0. 


03 

RECl 

PICTURE X(80). 

03 

REC2 

PICTURE X(80). 

03 

REC3 

PICTURE X(80). 

PR0CEDURE DIV1SI0N. 


CALL 

CCRETREV USING 

C0NTR0L-INF0. 


DISPLAY RECl. 

DISPLAY REC2. 

DISPLAY REC3. 

M0VE 'CHANGE REC0RD 1' T0 RECl. 

M0VE 'CHANGE REC0RD 2' T0 REC2. 

M0VE 'CHANGE REC0RD 3' T0 REC3. 

CALL 'CCUPDATE' USING C0JTR0L-INF0. 

CALL 'CCRETREV USING C0NTR0L-INF0. 

DISPLAY RECl. 

DISPLAY REC2. 

DISPLAY REC3. 

G0BACK. 

The displayed results follow: 

CONTROL RECORD 1 
CONTROL RECORD 2 
CONTROL RECORD 3 
CHANGE RECORD 1 
CHANGE RECORD 2 
CHANGE RECORD 3 

5. REFERENCE 

Refer to discussion of Parameter Libraries in Division 2, Chapter 5, 
Section 1. 
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CMPDATE5 - APPLY INTERVAL TO A FISCAL DATE 


1. GENERAL 

CMPDATES is a subroutine used to apply an interval, earlier or later, 
to a five digit fiscal date (in the form of year, fiscal week, day of 
week). The interval is stated as work weeks and work days (based on a 
five day work week) with a maximum of 99 weeks and 5 days. 

2. CODING REQUIREMENTS 
2.1 Data Division. 


Working-Storage Section. 


77 

RTC0DE 

PICTURE 

XX. 

01 

C0MP-DATE-IN-5. 




03 

Cl5-YEAR 

PICTURE 

99. 


03 

Cl5-WEEK 

PICTURE 

99. 


03 

C15-DAY 

PICTURE 

9. 

01 

C0MP-DATE-/)UT-5. 




03 

C05-YEAR 

PICTURE 

99. 


03 

C05-WEEK 

PICTURE 

99. 


03 

C05-DAY 

PICTURE 

9. 

01 

INTERVAL. 




03 

INTVL-WEEKS 

PICTURE 

99. 


03 

INTVL-DAYS 

PICTURE 

9. 


03 

INTVL-SIGN 

PICTURE 

X. 


Note: INTVL-SIGN must have one of the following values: 

"E" to subtract the interval from the date 
"L" to add the interval to the date 


2.2 Procedure Division. 

CMPDATE5 is executed through a call statement coded as follows: 

CALL ’CMPDATE5’ USING C0MP-DATE-IN-5, G0MP-DATE-0UT-5, INTERVAL, RTC0DE. 

3. RETURN CODES 

A return code is passed to the COBOL program upon execution of CMPDATE5. 
The return codes are: 

00 - Successful 

01 - Date not all numeric 

02 - Tnvalidi date (see Paragraph 4, RESTRICTIONS) 

03 - Interval not numeric 

04 - Invalid interval (iNTVL-SIGN must be "E" or ”L") 
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CMPDATE5 - APPLY INTERVAL TO A FISCAL DATE (CONT.) 

4. RESTRICTIONS 

4.1 The year to which the interval applies must be within the range of 
73 through 78. 

4*2 The interval to be applied must be stated as work weeks and work days 
(based on the five day work week). 
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CMPDATE6 - APPLY INTERVAL TO A CALENDAR DATE 


1. gi-:neral 

CMPDATE6 is a subroutine used to apply an interval, earlier or later, to 
a six digit.calendar date (in the form of year, month, day). .The interval 
is stated as calendar weeks and calendar days (based on a seven day week) 
with a maximum of 99 weeks and 7 days. 

2. CODING REQUIREMENTS 
2.1 Data Division. 


Working-Storage Section. 


77 

RTC0DE 

PICTURE 

XX 

01 

C0MP-DATE-IN-6. 




03 

C16-YEAR 

PICTURE 

99 


03 

Cl6-M(jiNTH 

PICTURE 

99 


03 

C16-DAY 

PICTURE 

99 

01 

G0MP-DATE-0UT-6. 




03 

C06-YEAR 

PICTURE 

99 


03 

C06-M0NTH 

PICTURE 

99 


03 

C06-DAY 

PICTURE 

99 

01 

INTERVAL. 




03 

INTVL-WEEKS 

PICTURE 

99 


03 

INTVL-DAYS 

PICTURE 

9. 


03 

INTVL-SIGN 

PICTURE 

X. 


Note: INTVL-SIGN must have one of the following values: 

"E” to subtract the interval from the date 
’'L” to add the interval to the date 

2.2 Procedure Division. 

CMPDATE6 is executed through a call statement coded as follows: 

CALL »CMPDATE6» USING C0MP-DATE-IN-6, C0MP-DATE-0UT-6, INTERVAL, RTC0DE. 

3. RETURN CODES 

A return code is passed to the COBOL program upon execution of CMPDATE6. 
The return codes are: 

00 - Successful 

01 - Date not all numeric 

02 - Invalid date (see Paragraph 4, RESTRICTIONS) 

03 - Interval not numeric 

04 - Invalid interval (INTVL-SIGN must be "E" or "L") 
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CMPDATE6 - APPLY INTERVAL TO A CALENDAR DATE (CONT.) 


4. RESTRICTIONS 

The interval to be applied must be stated as calendar weeks and calendar 
days (based on a seven day week). 


Division 3 Chapter 3 
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CVDATE - FISCAL DATE CONVERSION 


1. GENERAL 

CVDATE is a subroutine used to convert a five digit fiscal date (in the 
form of year, fiscal week, day of week: 73225) to a six digit calendar 
date (in the form of year, month, day: 730601). 


2. CODING REQUIREMENTS 

2.1 Data Division. 

Working-Storage Section. 

77 RTC0DE PICTURE XX. 

01 UNC0NVERTED-DATE. 

03 UCV-YEAR PICTURE 99. 

03 UCV-WEEK PICTURE 99. 

03 UCV-DAY PICTURE 9. 


01 C0NVERTED-DATE. 
03 CV-YEAR 
03 CV-M0NTH 
03 CV-DAY 

2.2 Procedure Division. 


PICTURE 99. 
PICTURE 99. 
PICTURE 99. 


CVDATE is executed through a CALL statement coded as follows: 


CALL »CVDATE’ USING UNC0NVERTED-DATE, C0NVERTED-DATE, RTC0DE. 

3. RETURN CODES 

A return code is passed to the COBOL program upon execution of CVDATE. 
The return codes are: 

00 - Successful 

01 - Date not all numeric 

02 - Invalid date (see Paragraph 4, RESTRICTIONS) 

4. RESTRICTIONS 

The year, being converted must be within the range of 71 through 80. 
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CVDATEF6 - FISCAL DATE CONVERSION 


GENERAL 


CVDATEF6 is a subroutine used to convert a six digit fiscal date (in 

the form of year, month, week of month, day of week: 730533) 

to a six digit calendar date (in the form of year, month, day; 730516) 

2. CODING REQUIREMENTS 


2.1 Data Division. 



Working-Storage Section. 


77 

RTC0DE 

PICTURE 

XX 

01 

FISCAL-DATE. 




03 

F-YEAR 

PICTURE 

99 


03 

F-M0NTH 

PICTURE 

99 


03 

F-WEEK 

PICTURE 

9. 


03 

F-DAY 

PICTURE 

9. 

01 

CALENDAR-DATE. 




03 

CAL-YEAR 

PICTURE 

99 


03 

CAL-M0NTH 

PICTURE 

99 


03 

CAL-DAY 

PICTURE 

99 


2.2 Procedure Division. 

CVDATEF6 is executed through a GALL statement coded as follows; 

CALL ’CVDATEF6’ USING FISCAL-DATE, CALENDAR DATE, RTC0DE. 

3. RETURN CODES 

A return code is passed to the COBOL program upon execution of CVDATEF6. 
The return codes are; 



00 - Successful 

01 - Date not all numeric 

02 - Invalid date (see Paragraph s, RESTRICTIONS) 

4. RESTRICTIONS 

The year being converted must be within the range of 71 through 80. 
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CVDATE6F - CALENDAR DATE CONVERSION 


1. GENERAL 

CVDATE6F is a subroutine used to convert a six digit calendar date 
(in the form of year, month, day: 730601) to a six digit fiscal date 
(in the form of year, month, week-of-month, day-of-week: 730615). 

2. CODING REQUIREMENTS 
2.1 Data Division. 


Working-Storage Section. 


77 

RTC0DE 

PICTURE 

XX. 

01 

CALENDAR-DATE. 




03 

CAL-YEAR 

PICTURE 

99. 


03 

CAL-M0NTH 

PICTURE 

99. 


03 

CAL-DAY 

PICTURE 

99. 

01 

FISCAL-DATE. 




03 

F-YEAR 

PICTURE 

99. 


03 

F-M0NTH 

PICTURE 

99. 


03 

F-WEEK 

PICTURE 

9. 


03 

F-DAY 

PICTURE 

9. 


2.2 Procedure Division. 

CVDATE6F is executed through a CALL statement coded as follows: 

GALL 'CVDATE6F’ USING CALENDAR-DATE, FISCAL-DATE, RTC0DE. 

3. RETURN CODES 

A return code is passed to the COBOL program upon execution of CVDATE6F. 
The return codes are: 

00 - Successful 

01 - Date not all numeric 

02 - Invalid date (see Paragraph 4, RESTRICTIONS) 

4. RESTRICTIONS 

The year being converted must be within the range of 71 through 80. 
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GETDATE - DATE MANIPULATION, FARM PASSING, SET CONDITION CODE 

1. GENERAL 

GETDATE (GETDATE 3, Version 5) is a subroutine used to provide the 
following: 

1.1 Contents of the FARM parameter of the EXEC card, 

1.2 The following dates based on the. Operating System date: 

a. Julian date (YYDDD) 

b. Calendar date (YYMMDD) 

c. Fiscal week number (01 thru 52 or 53) 

d. Fiscal period (YYMMW) 

e. Fiscal day of week (1 thru 7) 

1..3 The time indicator: 

A for AM (0001 hours to 1200 hours) 

P for PM (1201 hours to 2400 hours) 

1.4 The standard constant to compare a line counter for carriage overflow. 

1.5 The Works Identification Code: 

1.51 This code is a two position location code obtained from the 

programmer name field on the JOB card at program execution time 
(see Div. 2, Chap. 4, Sect. 4). If the location code so obtained from 
the JOB card is one of the following POIS locations, the GETDATE Works 
Identification field will be a single character (left justified in the 
two character field) as shown below. 


JOB Card Programmer Name 
Field Location Code 

GETDATE Works 
Identification 

POIS 

Location 

»CB» 

»j • 

Columbus Works 

•HW' or ’WN» 

'H ' 

Hawthorne Works 

»0C» 

ly t 

Oklahoma City Works 

*0H» 

• U ' 

Omaha Works 

»VC» 

»C » 

Columbia River Plant 


1.52 All other JOB card location codes will be used as is for the 
GETDATE Works Identification field. 

1.53 If an error is detected or this routine is unable to read this 
information from the JOB card, the GETDATE Works Identification 

field will contain spaces. Is is therefore necessary for programs dependent 
upon this to include a test for spaces . 

1.6 The ability to pass a condition code to the next job step. 

1.7 The ability to compute all dates listed in 1.2 above, from a user 
supplied Julian date (YYDDD). 

CAUTION: If the Julian date provided by the calling program is 

invalid, i.e., the DDD portion is less than 001 or 
greater than 366, the value returned to the calling program will 
be only the Julian date that GETDATE received. 
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GETDATE - DATE MANIPULATION, FARM PASSING, SET CONDITION CODE (CONT.) 

1- GENERAL (Cont.) 

1.8 The ability to abnormally terminate the job step with a user code. 

1.9 The ability to obtain the jobname and stepname of the job stream 
the calling program is running in. 

2. SPECIAL CONSIDERATIONS WHEN USING GETDATE 

2.1 The current version of GETDATE does not display any error messages. 

Note the CAUTION in par. 1.7 and also note par. 1.53. 

2.2 The GETDATE routine must be called prior to the calling of any of 
the other routines (paragraphs 1.6 through 1.9). 

2.3 There are no known problens in the current version of this subroutine 
which has been tested and validated through December 31, 1999. The 

following years have 53 fiscal weeks: 1971, 1976, 1982, 1988, 1993, and 1999. 

(Years having 53 fiscal weeks are defined in C.I. 95.183, Section 33, 

Appendix B). 

2.4 This subroutine links to another program (GETPGMNM) which resides in 
SYS2.LINKLIB. 

3. EXAMPLE OF USAGE 

3.1 Obtaining the PARM field from the EXEC statement, control dates computed 
from the system date, a time indicator, a line constant, and a Works 

Identifier (see par. 1.51). 

DATA DIVISION. 

WORKING-STORAGE SECTION. 


01 

EXEC-PARM. 




03 

FILLER 

PICTURE 

XX. 


03 

PARM-DET 

PICTURE 

X(39) 

01 

C0NTR0L-DATES. 




03 

JULIAN-DATE 

PICTURE 

S9(5) 


03 

CALENDAR-DATE 

PICTURE 

S9(6) 


03 

FISCAL-WEEK-N0 

PICTURE 

S99. 


03 

FISCAL-PERI0D 

PICTURE 

S9(5) 


03 

LINE-C0NSTANT 

PICTURE 

S99. 


03 

DAY-0F-WEEK 

PICTURE 

S9. 


03 

AM-PM-INDICAT0R 

PICTURE 

X. 


03 

W0RKS-ID 

PICTURE 

XX. 


PROCEDURE DIVISION. 


CALL *GETDATE* USING EXEC-PARM, C0NTR0L-DATES. 
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GETDATE - DATE MANIPULATION^ 
SET CONDITION CODE, 


FARM PASSING, 
;CONT.l) 


3.2 Passing a condition code to the next job step. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 C0NTR0L-DATES. (As shown in par. 3.1) 

• 

.01 C0NDITI0N-C0DES. 

03 STEP-C0DE 
03 G0-C0DE 
03 C0NTR0L-ERR0R 
03 SEQUENCE-ERR0R 
03 I-0-ERR0R 

PROCEDURE DIVISION. 

CALL *GETDATE.......(as shown in par. 3.1) 

, l^VE C0NTR0L-ERR0R T0 STEP-G0DE. 

CALL *SETC0DE* USING STEP-C0DE. 

3.3 Computing the control dates from a user supplied Julian date. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 C0NTR0L-DATES. (As shown in par. 3.1) 

01 USER-DATE PICTURE S9(6) C0MPUTATI0NAL-3. 


PICTURE S99 
PICTURE S99 VALUE 
PICTURE S99 VALUE 
PICTURE S99 VALUE 
PICTURE S99 VALUE 


C0MPUTATI0NAL. 
00 C0MPUTATI0NAL. 
04 C0MPUTATI0NAL. 
08 C0MPUTATI0NAL. 
12 C0MPUTATI0NAL. 



PROCEDURE DIVISION. 

• 

CALL 'GETDATE*......(as shown in par. 3.1) 

M0VE 73269 T0 USER-DATE. 

CALL •MVDATE* using USER-DATE, C0NTR0L-DATES. 
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GETDATE - DATE MANIPULATION. FARM PASSING> 
SET CONDITION CODE, (CONT,) 


3.4 Abnormally terminate the jobstep with a user code. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 C0NTR0L-DATES. (As shown in par. 3.1) 

01 ABEND-USER-C0DE PICTURE 9(4) VALUE ZER0S. 

PROCEDURE DIVISION. 

CALL * GETDATE'.(as shown in par. 3.1) 

M0VE 0401 T0 ABEND-USER-C0DE. 

CALL 'ABENDIT* USING ABEND-USER-C0DE. 

3.5 Obtain the jobname and stepname that the user program is running in. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 C0NTR0L-DATES. (As shown in par. 3.1) 

01 ERR0R-MSG-T0-PRINT. 


03 C0DED-MSG PICTURE X(31) VALUE SPACES. 

03 FILLER PICTURE X(5) VALUE • J0B *. 

03 J0B-NAME PICTURE X(8) VALUE SPACES. 

03 FILLER PICTURE X(6) VALUE • STEP ». 

03 STEP-NAME PICTURE X(8) VALUE SPACES. 

• 

PROCEDURE DIVISION. 

CALL * GETDATE'......(as shown in par.3.1) 


CALL 'JNAME' USING J0B-NAME, STEP-NAME. 

4. REFERENCE 

Responsible programmer, J. L. Halley, Oklahoma City. 


,/ 

! 
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GETTMT - UNFORMATTING TRANSMISSION FILES 


1. GENERAL 

GETTMT is a subroutine which accepts transmission input files 
for Fixed-Blocked, Fix-Unblocked, and Variable-Length records as 
specified in C.I. 95.183, Section 35. 

The subroutine has three functions: Open, Read, and Close. The Open 
routine passes the header label (THD), the Read routine passes a logical 
record, and the Close routine passes the trailer label (TTLE). O.S. Opens 
and Closes are handled by the subroutine, as well as stacked data sets. 

The subroutine, which requires 3K, should be linkage edited with the 
calling program. 

2. USING GETTMT 

2.1 Environment Division. 

A select clause should not exist for input files processed by the 
subroutine. 

2.2 Data Division. 

File Section. 


FD information should not exist for input files processed by the 
subroutine. 

Working-Storage Section. 


The following area should be coded and used as the arguments in the 
CALL statement. 


01 PASSDATA. 

03 ACTG0DE 
03 REELCNT 
03 BLKCNT 
03 RECCNT 
03 PBLKSIZE 
03 LRECSIZE 
03 C0MMAND 
03 ER0PT 
03 RCVAREA 


PICTURE 99. 

PICTURE S99 C0MP. 

PICTURE S99 C0MP. 

PICTURE S99 C0MP. 

PICTURE 9(5). 

PICTURE 9(5). 

PICTURE 9. 

PICTURE XXX VALUE ’C0DE'. 
PICTURE X(NUM). 
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GETTMT - UNFORMATTING TRANSMISSION FILES, (CONT.) 

2.2 Data Division (Contd) 

Description of Fields: 

2.21 PASSDATA is the argument used in CALL statement. 

2.22 ACTCODE will contain a two-digit numeric upon every return from 
tKe subprogram. This unsigned numeric will be indicative of the 
function that was performed by the subroutine. The following 
table summarizes the meaning and the recommended user-program 
logic for each ACTCODE. 



MEANING(S) 

USER ACTION(S) 

READ User called GETTMT with 

CODES COMMAND*!, READ 

10 

Successful Read and Complete. 

Continue Processing. 

12 

E0D, E0F, TTLE encountered. 

Call GETTMT with close COMMAND. 

14 

Invalid function, tried to 
read a file that was never 
opened. 

Call GETTMT with open COMMAND. 

16 

Reel read to tape mark, no 
required trailer label (TTLE) 
found for the Label Data Set. 

File considered closed. Open 
the next Label Data Set. 

18 

A 001 error was encountered 
by GETTMT and the user valued 
EROPT as POS. Current Label 

Data Set bypassed and now 
Considered Closed. 

Issue an Open for the next 

Label Data Set. 

OPEN User called GETTMT 

CODES with C0MMAND*2, OPEN 

20 

Successful open and complete 
Header Label (THD) exists in 
RCVAREA. 

Continue Processing. 

22 

No Header Label (THD) found 
as first record after a 
trailer label (TTLE). 

Close the file. In effect the 
user is bypassing the proces¬ 
sing of the file. 

24 

Invalid function, tried to 

OPEN a file, but previous 
file was not closed. 

Call GETTMT with CLOSE COMMAND. 

26 

Invalid record format in 
header. GETTMT cannot process 
the file. 

Must call GETTMT with a Close 
Command. In effect the user is 
bypassing the label data set. 
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GETTMT - UNFORMATTING TRANSMISSION FILES,(CONT.) 

2.2 Data Division (Contd) 


CLOSE User called GETTMT with 

CODES C0MMAND=3, CLOSE 

30 

Successful CLOSE and COMPLETE. 
Trailer label (TTLE) exists 
in RCVAREA. BLOCK and RECORD 
counts check with label. 

Continue Processing. 

32 

Successful CLOSE and COMPLETE. 
Trailer exists in RCVAREA, but 

BLOCK and/or RECORD counts 
do not check with label. 

Continue Processing. 

34 

Invalid function, tried 
to close a file that was 
never opened. 

Call GETTMT with 
an OPEN COMMAND. 

ANY COMMAND 

CODE 

00 

. 

Invalid command, not an unsign¬ 
ed 1, 2, or 3. 

Call subroutine with desired 
command. 


2.23 REELCNT , a computational field, indicates the number of Input reels 
to be processed. This field must be initialized by the user. For 
example, if two reels are to be processed the REELCNT should be 
initialized to two and will equal zero at the end of the last label 
data set. The user should check the REELCNT immediately after all 
open calls to the subroutine. If the subroutine is called after 
the REELCNT equals zero, a USER 999 abend will be issued by GETTMT. 

2.24 BLKCNT is a counter that the subroutine uses to sum the number of 
blocks read. Because this field is used by GETTMT in comparing 
the trailer label (TTLE) count, the user should never alter or 
change the contents of this field. 

2.25 RECCNT (Same as BLKCNT description above). 

2.26 PBLKSIZE - With FB or FU formatted records this field will contain 
the physical block size as indicated on the header label. This 
will be the block size that will be used to process the file. With 
VB formatted records and upon return from an Open, this field will 
contain the maximum physical block size of largest block on the 
file. Upon return from a read, it will contain the size of the 
current block. 

General - This field should never be altered by the user. 
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GETTMT - UNFORMATTING TRANSMISSION FILES, (CONT.) 


LRECSIZE - With or FU formatted records, this will be the 
logical record size that the subroutine will use to process 
the records. 

With VB formatted records and upon a return from an Open, it 
will contain the size of the largest record on the file. Upon 
return from a Read, it will contain the record size of the 
current record passed. 

General - This field should never be altered by the user. 

2.28 COMMAND - This field must contain the numeric 1, 2, or 3. 

The subroutine uses this field as follows: 

1 - READ A RECORD 

2 - OPEN A FILE 

3 » CLOSE A FILE 

NOTE; The command must also be an unsigned 1, 2, or 3. Any 
other data in this field will cause an ACTCODE of "00" 
to be set, (See ACTCODE 2.22), 

2*29 EROPT - Code must be initialized to one of the following: 

’ACC’ - Accept all data blks with 001 errors 
’SKP’ - Skip all data blks with 001 errors 
’ABE’ - Abend the step on a 001 error 
’POS’ - Position to the next label data set 
on all 001 errors. An ACTCODE of 18 
will be returned on this condition. 

(See ACTCODE 2.22). 

2.30 RCVAREA PIC X(NUM). 

NUM must contain the maximum record length the user will process. 
In any condition, this number must not be greater than 1000 (the 
largest size the standard will allow) or less than 80 (the record 
length of the labels). 

Upon successful GETTMT actions, RCVAREA will contain; 

0PEN - 80 character header of the opened file (THD) 

READ - a logical record 

CL0SE - 80 character trailer of the closed file (TTIE) 

NOTE; All headers, trailers, and records will be left 
justified in RCVAREA. 
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GETTMT - UNFORMATTING TRANSMISSION FILES, (CONT.) 

2.3 Procedure Division 

The subroutine Is Invoked by the following statement; 

CALL »GETTMT« USING PASSDATA. 

2.4 Permanent I/O Errors 

GETTMT gives users full contool on I/O errors through the EROPT 
argument. It also prints out a descriptive message concerning 
all I/O errors onto a sysout data set called GETOUT. (See JCL 2.52) 

2.5 m 

2.51 GETTMT expects all input files to be described by one DD 
statement with the DDNAME of TMTTAPE. For example: 

//TMTTAPE DD DSN-ANY,LABEL-(,NL),DISP-«0LD,UNIT»TAPE,V0L*SER=NAME 

Note: No DCB information should be coded. 

2.52 GETTMT requires a sysout data set named GETOUT. It must be 
coded as follows: 

//GET0UT DD SYS0UT-A 

GETOUT will print all headers as they are encountered followed 
by descriptive 001 error messages should they occur. 
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PARMEXCD - OBTAIN EXEC CARD FARM INFORMATION 


1. GENERAL 

PARMEXCD is a subroutine that allows the user to: 

a. Obtain up to 100 bytes of data from the FARM parameter of the 
EXEC card and place the data in the users program. 

b. Place the length of the FARM in the users program. 

2- CODING REQUIREMENTS 

2.1 Data Division. 

Working-Storage Section. 

01 PARM-EXEG-CD. 

03 PARM-LENGTH 
03 PARM-DATA 

2.2 Procedure Division. 

CALL » PARMEXCD' USING PARM-EXEC-CD. 

2.3 If no FARM information is passed, a length of 000 will be returned 
to the users work area. 


PICTURE 999 VALUE ZER0S. 

PICTURE X (Range 1 to 100) VALUE SPACES 
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PUTTMT - FORMATTING FILES FOR TRANSMISSION 


1. GENERAL 

PUTTMT is a subroutine which produces transmission output files for 
Fixed-Blocked and Fixed-Unblocked records as specified in C.I. 95.183, 
Section 35. No provision is made to process Variable-Leneth records. 

The subroutine is broken down into three functions: Open, Write, and Close. 
The Open routine writes the standard header (THD), the Close routine writes 
the standard trailer (TTLE), and the Write routine writes a record. Blocking 
of records, padding the last block with nines, and performing 0. S. Open 
and Close functions on the files are automatic to the user by supplying 
the proper subroutine command. 

The subroutine, which requires 3K, should be linkage edited with the 
calling program. 

2. USING PUTTMT 

2.1 Environment Division. 

A select clause should not exist for output files processed by the 
subroutine. 

2.2 Data Division. 

File Section. 

FD information should not exist for output files processed by the 
subroutine. 

Working-Storage Section. 

The following area should be coded and used as the argument in the 
CALL statement. 

01 DATAPASS. 

03 ACTI0N 
03 REELCNT 
03 C0M 
03 PASSDATA 

Description of Fields: 

2.21 DATAPASS is the argument used in the call statement. 

2.22 ACTION will contain a two-digit numeric value upon every 
return from the subprogram. This unsigned numeric value 
will be indicative of the function that was performed by 
the subroutine. The following table summarizes the meanings 
and the recommended user-program logic for each ACTION. 


PIC 99. 

PIC 99 C0MP VALUE 0. 
PIC 9. 

PIC X(n). 
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PUTTMT - FORMATTING FILES FOR TRANSMISSION,(CONT.) 




MEANING(S) 

USER ACTION(S) 


Codes 

00 

Invalid COM, must be a 

1,2,3,4, or 5 in DISPLAY. 

Move desired command to 

COM and Call Subroutine again. 


Open 

Codes 

10 

Header record (THD) put 
on file successfully. 

Continue processing. 


12 

Required header does not 
have a "THD” in character 
positions 1-3 of PASSDATA. 

Move proper header information 
to PASSDATA and call subroutine 
again. 


14 

Record factor is not a 
whole multiple of the 
block factor in the THD. 

Move proper header information 
to PASSDATA and call subroutine 
again. 


16 

■ 

Invalid function, a "TTLE" 
was not put on previous 
file, or trying to put two 
headers for the same file. 

Continue processing or put a 
"TTLE" on the file. 


Write 

Codes 

20 

Action of put record 
complete and successful. 

Continue processing. 


26 

Invalid function, a "THD" 
was not put on the file. 

First move header information to 
PASSDATA and call subroutine to 
put header, then continue by 
calling subroutine to put the 
record. 


Close 

Codes 

30 

Trailer record (TTLE) 
on file successfully. 

Continue processing. 


36 

Invalid function a "THD" 
was not put on the file, 
or trying to put two trail¬ 
ers for the same file. 

Continue processing or put a 
"THD" on the file. 
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FOR TRANSMISSION,' (CONT.) 


2.23 REELCNT, a computational field, indicates the number of output reels 
that have been processed or the current number of output reels. For 
example, if REELCNT-5 at the end of output processing, this indi¬ 
cates there are 5 output reels; whereas, a REELCNT«5 during 
processing, indicates that the fifth reel is accepting the output. 

2.24 COM (command) is an unsigned numeric field valued 1 through 5. 

The subroutine interrogates this field to determine which of 
the following functions it should perform: 

VALUE FUNCTION 

Put the header (THD) on the file 
Write a record 

Put the trailer (TTLE) on the file 
without volume switching. 

This taplies stacked data sets per reel. 

Put the trailer (TTLE) on the file with 
volume switching. 

Close the last data set. 

This must be the final command issued to 
the subroutine. 

Note: If the command is not one of the above unsigned-numerics a 

"00” in the ACTION field will be returned. (See table under 
ACTION 2.22) 

2.25 PASSDATA PIC X(n) is the area where the header and all logical 
records must be moved. The subroutine writes from this area; 
thus, information which is relevant to the command being 
issued, must exist in this area. 

The "PIC" size, "n", must be the size of the largest logical 
record with two restrictions. It must not be less than 80, 
which is the size of the labels; and secondly, it cannot be 
greater than 1000, which is the maximum size of any record as 
specified in C.I. 95.183. 

When COM(command=l) is issued, the subroutine expects the user 
header to exist in this field; and when COM(command)=2, the 
subroutine expects a logical record in this field. On all other 
commands, the subroutine ignores the content of the field. 




26. 
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PUTTMT - FORMATTING FILES FOR TRANSMISSION, (CONT.) 


2.3 Procedure Division* 

The subroutine is invoked by the following statement: 
CALL *PUTTMT* USING DATAPASS. 


2.4 JCL 

PUTTMT expects all output files to be described by a DD statement with 
the DDNAME of TAPETMT. 

For example: 

//TAPETMT DD DSN-ANY,DISP*(NEW,KEEP),UNIT*TAPE,LABEL*(,NL), 

// V0L-SER»(V0L1,V0L2,V0L3..voln) 

Where *'n*' represents the Bw.xiraum number of output volumes. 
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WESNAP - CALLABLE DUMP FOR DEBUGGING 


1. GENERAL 

WESNAP is a subroutine which produces a '*SYSUDUMP” type core dump each time 
it is called during the execution of a program. It is a useful debugging 
aid in that a programmer may place calls for the dump at logical points in 
a program to capture conditions at that time. 


2. USING WESNAP 

2.1 The routine is invoked in the procedure division of a COBOL program with 
a simple call statement. 

CALL 'WESNAP'. 

2.2 A dd statement is required in the step executing the COBOL program as 
follows: 

//SNAP DD SYS0UT=A 
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CALENDAR - CONVERT CALENDAR DATE TO JULIAN DATE 

1. GENERAL 

CALENDAR is a subroutine of 286 bytes that may be used to convert 
a six digit calendar date (in 


(YYDDD). 

2. CODING REQUIREMENTS 

2.1 Data Division. 

Working-Storage Section 

01 DATES. 

03 JULIAN-DATE 
03 CALENDAR-DATE. 
05 CAL-DATE-YR 
05 CAL-DATE-M0 
05 CAL-DATE-DA 

01 USER-DATE 

2.2 procedure Division. 


the form of YYMMDD) to Julian date 


PIC S9(5). 

PIC 99. 

PIC 99. 

PIC S99. 

PIC S9(6) C0MP-3. 


CALENDAR is executed through a CALL statement coded as follows: 
CALL 'CALENDAR' USING CALENDAR-DATE, USER-DATE. 

3. REFERENCE 

Responsible programmer, J. L. Halley - Oklahoma City. 
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CALENDAR - CONVERT CALENDAR DATE TO JULIAN DATE 




1. GENERAL 


CALENDAR is a subroutine of 286 bytes that may be used to convert 
a six digit calendar date (in the form of YYMMDD) to Julian date 
(YYDDD). 

2. CODING REQUIREMENTS 
2.1 Data Division. 


Working-Storage Section. 

01 DATES. 

03 JULIAN-DATE 
03 CALENDAR-DATE. 

05 CAL-DATE-YR 
05 CAL-DATE-M0 
05 CAL-DATE-DA 


01 USER-DATE 
2.2 Procedure Division. 


PIC S9(5). 

PIC 99. 

PIC 99. 

PIC S99. 

PIC S9(6) C0MP-3. 


CALENDAR is executed as follows: 


MOVE (six digit calendar date (YYMMDD)) TO CALENDAR-DATE. 
CALL ♦CALENDAR* USING CALENDAR-DATE, USER-DATE. 

MOVE USER-DATE TO JULIAN-DATE. 


3. REFERENCE 

Responsible programmer, J. L. Halley - Oklahoma City 
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FISCALPD - CONVERT SIX DIGIT FISCAL DATE TO JULIAN DATE 


1. GENERAL 

FISCALPD is a subroutine of 1884 bytes that may be used to convert 
a six digit fiscal date (in the form of YYMMWD) to Julian Date (YYDDD) 

2. CODING REQUIREMENTS 
2.1 Data Division. 

Working-Storage Section. 


01 DATES. 

03 JULIAN-DATE 
03 CALENDAR-DATE 
03 FISCAL-PERI0D. 

05 FIS-PERI0D-YR 
05 FIS-PERI0D-M0 
05 FIS-PERI0D-WK 
05 FIS-PERI0D-DA 

01 USER-DATE 

2.2 Procedure Division, 


PIC S9(5). 

PIC S9(6). 

PIC 99. 

PIC 99. 

PIC 9. 

PIC S9. 

PIC S9(6) C0MP-3. 


FISCALPD is executed through a CALL statement coded as follows: 


CALL ‘FISCALPD' USING FISCAL-PERI0D, USER-DATE. 


CAUTION: If the D portion of the fiscal date provided by the 

calling program is zero or blank, the value returned 
to the calling program will be the first day of that week. 

3. REFERENCE 

Responsible programmer, J. L. Halley - Oklahoma City. 
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FISCALWK - CONVERT FIVE DIGIT FISCAL DATE TO JULIAN DATE 


1. GENERAL 

FISCALWK is a subroutine of 1826 bytes that may be used to convert 
a five digit fiscal date (in the form of YYWWD) to Julian date (YYDDD) 

2. CODING REQUIREMENTS 
2.1 Date Division. 

Working-Storage Section. 


DATES. 




03 

JULIAN-DATE . 

PIC 

S9(5) 

03 

CALENDAR-DATE 

PIG 

S9(6) 

03 

FISCAL-PERI0D 

PIC 

S9(6) 

03 

FISCAL-WEEK. 




05 

FIS-WEEK-YR 

PIC 

99. 


05 

FIS-WEEK-WK 

PIC 

99. 


05 

FIS-WEEK-DA 

PIC 

S9. 

USER-DATE 

PIC 

S9(6) 


C0MP-3. 

2.2 Procedure Division. 

FISCALWK is executed through a CALL statement coded as follows: 


CALL 'FISCALWK’ USING FISCAL-WEEK, USER-DATE. 

CAUTION: If the D portion of the fiscal date provided by the 

calling program is zero or blank, the value returned to 
the calling program will be the first day of that week. 

3. REFERENCE 

Responsible programmer, J. L. Halley - Oklahoma City. 
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RANDOM A PSEUDO-RANDOM NUMBER GENERATOR 





1. GENERAL 

1.1 RANDOM is a multiple-entry subprogram which returns 
statistically random numbers to the calling program. 

The Intended application area is in Monte-Carlo Simulations, 

The statistical properties are far superior to those of 
most commonly used generators, yet the execution time is 
generally about the same. It can be invoked from COBOL, 
FORTRAN, or PL/I programs, and will provide either uniform 
or normal random numbers, 

1.2 Uniform numbers will be in the range from 0 to 1, and 
are returned in floating point format. Normal numbers 

have a mean of 0 and a standard deviation of 1. Normal numbers 
within the range of -6 sigma to +6 sigma are statistically 
sound. The starting value of the generator can be controlled 
by the user for debugging purposes, or the user can let the 
subprogram generate its own random starting value. The 
generator has a cycle length of 2.14 billion for uniform 
numbers, and a length of 44.7 million for normal numbers. 

2. CODING REQUIREMENTS 

2.1 COBOL CODING 

Data Division. 

Working-Storage Section, 

77 RANDOM-NUMBER USAGE COMP-3. 




Procedure Division. 

MOVE X.XXX TO RANDOM-NUMBER. 

CALL SEEDIT USING RANDOM-NUMBER. 


CALL RANDOM USING RANDOM-NUMBER, 
and/or 

CALL NORAND USING RANDOM-NUMBER. 
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RANDOM - A PSEUDO-RANDOM NUMBER GENERATOR (CONT.) 


2.2 FORTRAN CODING 




2.3 




REAL *3 .RAN.U.MB 

RANUMB»X.XXX 








GALL SEED IT (RANUMB|;^ 

CALLRAND6m_(RANUMB) 
orXNUMB^ 
and/or 

CALL NORAND(RANUMB) 

or ANUMB«FNRAND(RANUMB) 

PL/I CODING (Checkout & Optimizing Compiler Only) 

DECLARE RAND0M_NUMBER DECIMAL FLOAT(a); 

RANDOM_NUMBER*X.XXX 

CALL SEEDIT (RANDOM_NUMBER) 

CALL RANDOM (RANDOM_NUMBER) 
and/or 

CALL NORAND (RANDOM_NUMBER) 

2.4 Coding Notes 

2.41 The variable used to pass data to the external 
seeding routine "SEEDIT” does not have te be the 

same as the argument of the other call statements. It was 
done in the examples simply for coding brevity. 

2.42 The "FRAND" and "FNRAND" entries for FORTRAN do not 
have an argument. However, the compiler requires 

a dummy argument to identify it as a function subprogram. 

2.43 The use of a double word (8 bytes) argument Is 
optional. However, to get consistent results 

from program to program, the argument for entry "SEEDIT" 
must be a double word, 

3. GENERATOR USAGE 

3.1 Entry "SEEDIT" - This call statement is used to obtain 

a random number sequence starting with the user specified 
value. The argument, which is the starting value, should be 
a double word floating point number in order to ensure 
repeatability. It should be in the range of 0 to 1; if not 
an arbitrary constant is substituted and execution continues. 


/ N 









/ 
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RANDOM ~ A PSEUD0->RAND0M NUMBER GENERATOR (CONT.) 


3.2 Entry "RANDOM” - This call statement returns to the 

user a single word (4 byte) floating point uniform 1 

random number in the argument specified. The number is 
between 0 and 1. ’ 

3.3 Entry "FRAND” - This function subprogram entry returns 

a uniform random number to the FORTRAN user the same \ 

as "RANDOM”. It should not be called from other languages. 1 

\ 

3.4 Entry "NORAND” - This call statement returns to the j 
user a single word (4 byte) floating point normal 

random number in the argument specified. 

3.5 Entry "FNRAND” - This function subprogram entry returns 
a normal random number to the FORTRAN user the same 

as "NORAND”. It should not be invoked from COBOL or PL/I. j 

4. REFERENCE 

4.1 Please refer any questions to W. A. Bell - 9411, on 
CORNET 391-5257. 
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MACROS ~ WICSTERN ELECTRIC 
SECTION 1 - GENERAL 


I. INTRODUCTION 

1.1 A macro instruction provides a convenient way to generate a desired sequence 
of assembler language statements in one or more programs. The macro defini¬ 
tion is written only once, and a single statement, a macro instruction statement, 
is written each time a programmer wants to generate the desired sequence of state¬ 
ments, The assembler generates a sequence of assembler language statements for 
each occurrence of the same macro instruction. The generated statements are then 
processed like other assembler language statements, 

1.2 The macro instructions presented in this Section were developed by Western 
Electric personnel to simplify the coding of instructions which perform a 

specific function or special purpose. The macros reside in SYSl.MACLIB. 

1.3 Appendix A^ Macro Reference List, directs the User to an Appendix which 
contains a description of the macro and examples of usage, 

1.4 For a complete description of assembler language macros and an explanation 
on how to use macros, refer to IBM System/360 Operating System Assembler 

Language Manual, Form C28-6514, 
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DATA PROCESSING SYSTEM PROGRAMMING AIDS 
MACROS - WESTERN ELECTRIC 
MACRO REFERENCE LIST 

MACRO NAME FUNCTION APPENDIX PAGE 


DEBUG 

Dynamic debugging information 
facility 

B 

3 

ENTER 

Program initialization 

c 

6 

EXIT 

Program termination 

D 

10 
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DEBUG MACRO 





1. GENERAL 

1.1 The DEBUG macro provides printouts of the general purpose registers, selected 
areas of core and an indication of the calling point in the using program 

without modifying the environment in which the DEBUG routine is operating. 

2. FEATURES 

2.1 The following features and capabilities are provided by the DEBUG macro: 

2.11 Ability to specify a register for both the core location from which to 
start dumping and the length of the area. 

2.12 Ability to specify a length on storage dumping up to 4095 bytes, 

2.13 Translation of storage to EBCDIC, 

2.14 Ability to turn printing on or off under program control. 

2.15 The address is affixed to each line of storage printed, 

2.16 The processing module is generated as a named CSECT so that only about 
150 bytes of addressable storage are needed. 

3. USAGE 

3.1 Control of the DEBUG macro is accomplished through the use of up to four 
operands and one DD card; 

DEBUG message,from,length^DDNAME= 

3.11 message - The first positional operand is a message to be printed with 
the register and core contents to indicate the calling point. The message 

may be up to 12 characters long and must be enclosed in apostrophes if embedded 
blanks are present. The apostrophe and ampersand characters must be doubled as in 
normal DCs. Messages longer than 12 characters will be truncated to the first 12. 
Shorter messages will be padded to the right with blanks. If this operand is 
omitted, the default used is the CSECT name concatenated with an integer indicating 
the relative position of the DEBUG macro. 

3.12 from - The second positional operand is the label or a pointer in a 
register of the beginning address of the storage area to be printed. 

If a label is used, it may be any label based on any USING statement. . This 
includes labels in DSECTs. If register notation is used, it must be of the 
form: DISPL(REG) where either or both of DISPL and REG may be equates or numbers. 
Examples: 4(6), ZERG(R8). If this address is not a doubleword it is rounded 
down to the nearest doubleword. This operand may be omitted if no storage 
dumping is desired. 
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3.13 length - The third positional operand need be specified only when the 
second operand, "from,'* is specified. The third operand specifies the 

number of bytes to be printed. It may be a fixed number or in register notation 
and must not exceed 4095 bytes. If register notation is used, the form is the 
same as described for the second operand in 3.12 above. The displacement and the 
contents of the register will be added together and used for a length. If the 
length is zero or negative, the default value of 128 bytes will be used. If 
the length is greater than 4095 bytes, it will be reset to 4095. If the length 
is omitted, and a second operand (from) has been supplied, 128 bytes will be 
assumed. 

3.14 DDNAME=ddname - This keyword operand is required only on the first use 
of the DEBUG macro in an assembly (meaning the first physical use, not 

necessarily the first logical use). Specify the DDNAME of a DD card which DEBUG 
may use for output to be printed. This DDNAME must be unique in your JCL run 
deck. User must supply a DD card in his execution step specifying this DDNAME. 

If omitted, an MNOTE will be issued and the CSECT name will be assumed. 

4. THE ON-OFF FEATURE 

4.1 The single byte at the generated label •ZZX0Nj&FF» Is the key to program 
control of DEBUG printing. If its value is X*00* (as it is set initially), 

normal DEBUG printing will occur. Whenever the byte has a non-zero value, DEBUG 
printing for this module will be suppressed. The user is free to change this one 
byte as often as desired. 

5. ADVANTAGES OF DEBUG OVER SNAP DUMPS 

5.1 Easier to use 

5.2 Does not skip a page on output 

5.3 Does not change any registers 

5.4 Does not change the condition code 

5.5 Supplies its own processing module and DCB 

5.6 OPENS its own file 

5.7 Provides a message indicating macro location in program in S-CON form 
(i.e., base-displacement) 

5.8 Prints CSECT name of program 

5.9 All registers are printed automatically on every call 

5.10 Ability to turn off and on under program control 
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6. DEBUG DISADVANTAGES AND RESTRICTIONS 

6.1 The first physical use of DEBUG requires 156 bytes of main storage 
addressable by the user’s base register and approximately 950 bytes in a 

separate CSECT, Subsequent use requires only 25 bytes of addressable storage. 

Four more bytes are required if a label for storage dumping is specified, 

6.2 Must be used within a named CSECT (provided by ENTER macro operand CSECT= ), 

6.3 May not be used in read-only storage since it modifies itself, 

6.4 The first use of the DEBUG macro must be addressable by other uses of it in 
an assembly. This is not a problem if basing for the module is set up and 

not changed, 

6.5 The first 18 words of the save area based on register 13 must not be 
specifically used by the user except for use as a standard save area. 
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ENTER MACRO 


1. GENERAL 

The ENTER macro generates the instructions required at the beginning 
of an assembly language program. 

2. USAGE 

2.1 Simple form - The macro may be coded without any parameters: 

ENTER 

This produces an unnamed control section, saves all the general 
registers, establishes register 12 as a base register and creates 
a save-area to which register 13 points. 

An entry point name is not generated. Consequently, this version 
of the macro is suitable only in a main program. 

2.2 General form - Loc ENTER CSECT=csname, 

BASE=basereg, 

SAVNAME=savarea 

All the parameters are optional. The operands are keyword 
parameters and may be coded in any order. Use commas where 
necessary to separate operands. 

2.21 loc - A symbol coded in the name field of the ENTER macro defines 

the entry point to the program. An ENTRY is generated for 
the symbol, and the symbol is placed in the name field of the 
first program instruction. 

If this parameter is omitted, an ENTRY statement is not 
generated and the name field of the first program instruction 
is left blank. 

2.22 CSECT=csname - This parameter gives a name to the control section 

generated by the ENTER macro. If the parameter is 
omitted, the control section is considered unnamed. 

2.23 SAVNAME=savarea - This parameter gives a name to the 72 byte save 

area. Unless it is necessary to refer to the 

save area by name, this parameter may be omitted since the address 
is loaded into register 13. 

BASE=basereg - This parameter may be used to assign a base register. 

If it is omitted, register 12 is assumed. Registers 
0 and 13 may not be specified. 


2.24 
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2.3 Complete form - loc ENTER USE=RENT 

LVrslength 

SP=pool 

CSECT=(csname,start) 

BASE=basereg 

REG=(rl,r2) 

IDs* or ID=(ident) 

SAVNAME=savarea 

SYMREG=Y 

2.31 The parameters *loc*, BASE=basereg, and SAVNAMEssavarea are the 
same as described under General Form, paragraph 2.2. 

2.32 USE=RENT - This parameter makes the code generated by the ENTER 

macro reentrant. Instead of generating a 72 byte 
save-area, a GETMAIN supervisor call is issued to dynamically 
allocate a 72 byte save-area. 

2.33 LV=length and SP=pool - LV and SP may be coded in conjunction 

with USE=RENT. These parameters 

correspond to the LV and SP parameters in the R type GETMAIN which 
specify the subpool number the length in bytes of the requested 
main storage area. LV=:72 and SP=0 are assumed if not specified. 

No less than 72 bytes should be requested since the first 72 bytes 
are used for the register save area. 

2.34 CSECT=(csname,start) - The parameter csname is the same as described 

under General Form, paragraph 2.2. The 
parameter *start* may be used to specify an initial location counter 
value for the program. If coded, it must be a self-defining term. 

A START instruction rather than a CSECT will then be generated. 

This may only be done for the first (or only) control section for 
a program. 

2.35 REGsCr,(,r2)) - Normally all the registers are saved. The REG 

parameter may be coded so that only certain 
registers are saved. The registers must be specified so that 
they are stored in the order 14, 15, 0, ..., 11, 12 when used 
in a STM instruction. Both rl and r2 must be self-defining 
terms, and must not designate register 13. If USE=RENT is 
coded, all registers are saved regardless of the REG parameter. 

2.36 ID=* or ID=(ident) - Some applications require an EBCDIC 

character string at the beginning of the 
program. The ID parameter specifies an identifier which will 
be assmbled into such a character string. 

If ID=* is coded, the identifier is taken from the name field 
of the ENTER macro. If the name field is blank, the name of 
the control section will be used. If the control section is 
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unnamed and the name field is blank, no character string will 
be assembled. If a different identifier is desired it may be 
explicitly coded. For instance, 

ID=OTIIER 

This name may be up to 70 characters long. If the name 
includes blanks or commas, it should be enclosed in single 
quotes. 

When ID is coded, the first machine instruction generated by 
the macro will be a branch around the assembled character 
string. Following the branch instruction and preceding the 
character string is a one-byte length field indicating the 
number of characters in the string. 

For example: 

ENTER ID=0THER 

would generate 


B 10(0,15) BRANCH AROUND ID 

DC AL1(5) LENGTH OF IDENTIFIER 

DC CL5*OTHER* IDENTIFIER 

In all cases, the length field and the character string are 
displaced 4 bytes and 5 bytes respectively from the program 
entry point. 

2,37 SYMREG=Y - If SYMREG=Y is coded, symbolic register equates, 

RO, Rl, R2, •.*, R15, are generated, 

3. CODING DETAILS 

3,1 If USE=RENT is not coded, an in-line save-area is created such that 
the address of the save-area is also the base address. 


Thus, additional base registers may be established as follows: 


ENTER 

LM 

USING 

B 

NEWBASE DC 
NEXT ... 

Registers 10,11, and 12 are 


SAVNAME=BASE 
10,11,NEWBASE 
BASE+4096,10,11 
NEXT 

A(BASE+4096,BASE+8192) 


established as base registers. 
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It is not permitted to specify BASE=:13 in the macro. Although 
it is not recommended, register 13 may still be used as a base 


register as follows: 


ENTER 

SAVNAME=BASE 

USING 

BASE,13 

DROP 

12 


3.2 The ENTER macro assumes that the program was entered by a standard 
calling sequence. This requires that register 13 contain the 
address of the caller*s save-area and that register 15 contains 
the address cf the program entry point. This will always be true 
for a main program, which is called by the system, or for programs 
entered using system-linkage macros (i.e., CALL,LINK). 

3.3 The ENTER macro does not alter the contents of the registers other 
than the base register and register 13, the save-area register. 

3.4 An MNOTE error message is issued if either BASEnO or BASE=:13 is 
coded. An MNOTE warning message is issued if any of registers 
1, 2, 14, or 15 is coded in the BASE parameter. 

3.5 The ENTER macro is intended to be complementary to the EXIT macro. 
If USE=RENT is specified in either macro, it should be specified 
in both. If the REG parameter is used to save only certain 
registers, it should be used similarly in the EXIT macro to restore 
only those registers. The LV or SP operands when specified in the 
ENTER macro should be coded identically in the EXIT macro. 

3.6 All combinations of the parameters are legal. 
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EXIT MACRO 


1. GENERAL 

The EXIT macro generates the instructions required to restore the 
general registers and return control to the calling program. For 
a main program, this amounts to stopping execution and returning 
control to the system. 

2. USAGE 

2.1 Simple form - The macro may be coded without any parameters. 

EXIT 

This will restore the general registers and return control to 
the calling program. 

2.2 General form - loc EXIT RES=result, 

RC=retcode 

All the parameters are optional. The operands are keyword 
parameters and may be coded in any order. Use commas where 
necessary to separate operands^ 

2.21 loc “This symbol is placed in the name field of the first 

instruction generated by the macro. When control is to 
be returned, a branch to this address may be executed. If 
this parameter is omitted, the name field of the first instruc¬ 
tion is left blank, 

2.22 RES=result - This parameter allows an integer value to be 

returned to the calling program in register 0, 

See paragraph 3 for valid forms of this parameter. 

2.23 RC=retcode - This parameter allows a return code to be returned 

to the calling program in register 15, See paragraph 
3 for valid forms of this parameter, 

2.3 Complete form - 

loc EXIT USE=RENT, 

LV=length, 

SP=pool, 

RES=result, 

RC=retcode, 

REG=(rl,r2) 

2.31 The parameters *loc*, RES=result, and RC=retcode are the same as 
described under General form, paragraph 2,2, 
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2.32 USE=RENT - Coding this parameter generates a FREEMAIN supervisor 

call which releases the current 72 byte save-area. 

2.33 LV=:length and SP=pool - LV and SP may be coded in conjunction 

with USE=RENT. These parameters correspond 
to the LV and SP parameters in the R type FREEMAIN which specify 
the subpool number and the length in bytes of the main storage area 
to be released. LV=72 and SP=0 are assumed if not specified. 

2.34 REG=(rl(,r2)) - Normally, all the registers are restored. The 

REG parameter may be coded so that only certain 
registers are restored. The registers must be specified so that 
they are restored in the order 14, 15, 0, ..., 11, 12 when used 
in a LM instruction. Both rl and r2 must be self-defining terms 
and must not designate register 13. If USE=RENT is specified, 
all the registers are restored. Whenever the RC parameter is 
coded, register 15 will not be restored, but will be loaded with 
the designated value. Similarly if the RES parameter is coded, 
register 0 will not be restored, but will be loaded with its 
designated value. These conditions also apply when USE=RENT 
is specified. 

3. VALID FORMS OF THE RC AND RES PARAMETERS 

3.1 Absolute Form - This is written as a self-defining term whose value 
is less than 4096. 

EXIT RC=8 (or RES=8) 

3.2 Register Form - if the value is in a general register, the register 
number should be enclosed in parenthesis. 

EXIT RC=(10) (or RES=(10) ) 

3.3 Symbolic Form - A symbol defining a full-word or a half-word value 
may be designated. 

EXIT RC=C0NST (or RES=C0NST) 

Where CONST might be defined as: 

CONST DC F»12* 
or 

CONST DC H»12» 
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3.4 Literal Form - A full-word or a half-word literal may be 
designated: 

EXIT RC==F»16* (or RES==F»16») 

or 

EXIT RC==H»20* (or RES:s=H»20») 

4. CODING DETAILS 

4.1 It is not recommended that RC=(0) be coded when RES is used or that 
RES=(15) when RC is used. The resulting code is necessarily 
inefficient since a register must temporarily be stored in order to 
load the proper value. 

4.2 The EXIT macro assumes that a 72 byte save-area has been provided 
for the program and that the address of this area is in register 
13. This will be the case if an ENTER macro was executed at the 
beginning of the program. 

4.3 If the REG parameter is specified so that register 14 will not 
be restored, then this register should not have been modified by 
the program, since the EXIT macro will use register 14 to return 
control. 

4.4 The EXIT macro is intended to be complementary to the ENTER macro. 

If USE=RENT is specified in either macro, it should be specified 
in both. If the REG parameter is used to restore only certain 
registers, it should be used similarly in the ENTER macro so that 
these registers are saved. The LV or SP operands when specified 
in the ENTER macro should be coded identically in the EXIT macro. 

4.5 All combinations of the parameters are legal. 



Western Electric Company Division 3 Chapter 5 

Warrenville Data Center 1. Section 1 

PROGRAMMING S & R MANUAL Issue 1 Date 6/29/73 

DATA PROCESSING SYSTEM PROGRAMMING AIDS 
CATALOGED PROCEDURES 
SECTION 1 - GENERAL 


1. INTRODUCTION 

1.1 A cataloged procedure is a set of job control statements that has been 
placed in a partitioned data set called the procedure library. The 

procedure can be retrieved from the library by using its member name in an 
EXEC statement of a job step in the input stream. It can contain statements 
for the processing of an entire job, or it can contain statements to process 
one or more steps of a job, with the remaining steps defined by job control 
statements in the input stream. A job can use several cataloged procedures, 
each processing one or more of the job steps. A job can also call for 
execution of the same cataloged procedure in more than one job step. 

1.2 In general, this material should enable the user to make effective use 
of these cataloged procedures. For those procedures which invoke IBM 

programs or other commercial software products, reference is made to the 
applicable vendors manual or reference guide where additional information is 
available to the user. 

1.3 Appendix A, Cataloged Procedure Reference List, directs the user to an 
Appendix which contains a description of the cataloged procedure and 

examples of usage. 
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CATALOGED PROCEDURE REFERENCE LIST 

PROCEDURE FUNCTION APPENDIX PAGE 


ALGOFC 

ALGOL compile 

B 

6 

ALGOFCG 

ALGOL compile and execute 

C 

7 

ALGOFCL 

ALGOL compile and linkage edit 

D 

9 

ALGOFCLG 

ALGOL compile, linkage edit 
and execute 

E 

11 

ASMFC 

ASSEMBLER (F) compile 

F 

13 

ASMFCG 

ASSEMBLER (F) compile and execute 

G 

14 

ASMFCL 

ASSEMBLER (F) compile and 
linkage edit 

H 

16 

ASMFCLG 

ASSEMBLER (F) compile, 
linkage edit and execute 

I 

18 

AUTOFLOW 

Source program documentation 

J 

20 

CATALIST 

List catalog node points 

BZ 

123 

CATAUTIL 

Catalog maintenance 

CA 

125 

CHGPDS 

Adding, replacing, changing 
card image PDS members 

K 

23 

COB LG 

COBOL linkage edit and execute 

L 

25 

COB4C 

ANS COBOL compile 

M 

26 

COB4CG 

ANS COBOL compile and execute 

N 

27 

COB4CL 

ANS COBOL compile and linkage 
edit 

0 

29 

CGB4CLG 

ANS COBOL compile, linkage edit 
and execute 

. P 

31 

COB4COL 

ANS COBOL compile, optimize, and 
link-edit 

BA 

85 

DADUMP 

Direct access file dump listing 

AT 

75 
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PROCEDURE 

FUNCTION 

APPENDIX 

PAGE 


DASORT 

Direct access utility sort 

Q 

33 


DASPACE 

Calculate direct access space usage 
for a logical record of given length 

BC 

88 

'v.. J 

DPMPSIL 

List contents of the PSt table 

BF 

93 


FORTGC/ 

FORTHC 

FORTRAN (G & H) compile 

R 

35 


FORTGCL/ 

FORTHCL 

FORTRAN (G & H) compile and 
linkage edit 

s 

36 


FORTGCLG/ 

FORTHCLG 

FORTRAN (G & H) compile, 
linkage edit and execute 

T 

38 


FORTLG 

FORTRAN linkage edit and execute 

U 

40 


LISP 

LIBRARIAN, PDS output 

V 

41 


LIBS 

LIBRARIAN, sequential output 

w 

43 


LIBU 

LIBRARIAN utility procedure 

X 

45 


LIST 

Listing VTOC, PDS directories 
catalogs 

Y 

47 


LISTDISK 

Listing contents of a direct 
access volume and attributes 
of direct access data sets 

z 

48 


LISTOUT 

Listing a member of a card 
image partitioned data set 

AA 

49 


LISTPDS 

Listing a partitioned data set 

AB 

50 


LKED 

Link edit and produce a load module 

AG 

51 


LKEDG 

Link edit, produce a load 
module, and execute 

AD 

52 


META 

METACQBOL pre-compiler processor 
(includes COBOL F to ANS COBOL 
Conversion) 

BB 

8 6 
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CATALOGED PROCEDURE REFERENCE LIST (CONT,) 


PROCEDURE FUNCTION APPENDIX PAGE 


MOD 

Catalog operations, renaming, 
scratching 

AE 

5 3 

MOVE 

Copying direct access files, 
catalogs, PDS members 

AF 

54 

OPRPNCH 

Obtain copy of console JCL decks 

AG 

56 

PLCPREP 

Preparation for update of production 
libraries 

AH 

57 

PLICKC 

PL/I checkout compile 

BM 

10 7 

PLICKCG 

PL/I checkout compile, load, and go 

BN 

108 

PLICKCL 

PL/I checkout compile and link 

BO 

110 

PLICKCLG 

PL/I checkout compile, link-edit 
and go 

BP 

111 

PLICKG 

PL/I checkout load and go 

BQ 

113 

PLICKI 

PL/I checkout and go 

BR 

114 

PLICKLG 

PL/I checkout load and go 

BS 

115 

PLICKR 

PL/I checkout compile 

BT 

117 

PLIXC 

PL/l optimizing compile 

BU 

118 

PLIXCG 

PL/I optimizing compile and go 

BV 

119 

PLIXCL 

PL/I optimizing compile and link-edit 

BW 

120 

PLIXCLG 

PL/I optimizing compile, link-edit 
and go 

BX 

121 

PLIXLG 

PL/I optimizing link-edit and go 

BY 

122 

PLILFC 

PL/I compile 

AI 

59 

PLILFCL 

PL/I compile and linkage edit 

AJ 

60 
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CATALOGED PROCEDURE REFERENCE LIST (CONT 

» ) 



PROCEDURE 

FUNCTION APPENDIX 

PAGE 


PLILFCLG 

PL/I compile, linkage edit, 
and execute 

AK 

62 

J 

PLILFLG 

PL/I linkage edit and execute 

AL 

64 


PPANAL 

Problem Program Efficiency-Analyzer 

AV 

79 


PPEXT 

Problem Program Efficiency-EXTRACTOR 

AW 

81 


REACT 

Data retrieval system to retrieve data 
from sequential and index sequential 
files producing up to 40 formatted 
output reports 

BD 

89 


RPGEC 

RPG compile 

AM 

65 

i ! ■ 

RPGECL 

RPG compile and linkage edit 

AN 

66 


RPGECLG 

RPG compile, linkage edit, 
and execute 

AO 

68 


SORT 

Sort/merge with routines that 
require link editing 

AX 

83 


SORTD 

Sort/Merge with no routines 
or routines that do not 
require link editing 

AY 

84 


SORTSPAC 

Calculate disk sort work space 

AP 

70 


TLSBINL 

List contents of Tape Library 

System bin table 

BE 

92 


TPDUMP 

Tape dump listing 

AU 

77 


TRMDUMMY 

Create a "dummy” disk generation 
data set 

BI 

99 


TRMHISTl 

Extract backup volume information 
from Mlni-WEDGE History files 

BJ 

101 


TRMRECVR 

Transmission file recovery 

BK 

103 
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CATALOGED PROCEDURE REFERENCE LIST (CONT. ) 




PROCEDURE 

FUNCTION 

APPENDIX 

PAGE 

\ j 

TRMSTKAA 

Copy application system outgoing 
transmission data set to STACK 
disk pack 

BL 

105 


VSBASIC 

Translate and run a BASIC source 
module 

CB 

127 


WECDSK 

Card input to disk 

BG 

94 


WECT 

Card input to standard label 
tape with cataloging 

AQ 

71 


WELIST 

Listing VTOC, PDS directories, 
catalogs 

AR 

73 


WEMOD 

Catalog operations, renaming, 
scratching 

AS 

74 


WEOUTPUT 

Summary listing of production 

Div. 2, 

Ch. 4, 

o 


system output which requires 
further processing 

Sect. 5 



WETPCOPy 

Copy an entire tape to the double 
end-of-file mark 

BH 

97 
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TRMDUMMy » create A "DUMMY" DISK GENERATION DATA SET 

1. GENERAL 

1*1 Tl^iDUMMY is a cataloged procedure developed for application 
systems interfacing with Mini-WEDGE. The function of this 
cataloged procedure is to create a ’’dummy" transmission data set On 
disk and make an entry in the system catalog for the ’’dummy’’ data set 
to avoid an empty GDG condition (no cataloged generations) which would 
cause job failure. 

2. SYMBOLIC PARAMETERS 

2-1 TRMDUMMY requires one symbolic parameter and may have three 
optional parameters, which are: 

GDS, a required parameter, specifies the generation 
data group index (or base). 

REG, an optional parameter, specifies the maximum 
region. The default is lOK . Ordinarily this 
default will not need to be changed. 

VOLSER, an optional parameter, specifies the volume 
serial of the output disk pack. The default 
is the UNSTACK disk pack TRMQ02 . 

BLKSIZE, an optional parameter, specifies the DCB BLKSIZE 
value. The default is 1000 * 

3. ASP CONTROL CARD 

3.1 All jobs using TRMDUMMY for systems interfacing with Mini-WEDGE 
must include an ASP //*MAIN statement which includes the 

GLASS=UNSTACK and FAILURE-GANGEL parameters. 

4. USING TRMDUMMY 

4.1 TRMDUMMY is invoked by an EXEC statement 
// EXEC TRMDUMMY,GDS=»GDSindex‘ 


(Gontined on next page) 


Division 3 Chapter 
Section 1 Appendix 
Issue 1 Date 
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TRMDUMMY (CONTD.) 


5. CATALOGED PROCEDURE LISTING 


fiF.HBtR r-iAMt TRKDUfWY 

//TRMOUMMy »*RUC GOS = »GUS.0SNAME.bASfc*, 

// VUt-ifK~TRH00i;»6LkSIZt=!i000f 

// REG-iOR 

//» ftLKfKATE A PUMMY GDS(+i) IF A GDSIO) DOtS NOT ALREADY 

//» EXIST 

//’» 

ii* SYi-lBOLiC RaRAMCIER fiGOS MUST SFECiFY THE GOG DATA SET 

U* NA.Ae iVASe 

//STEPl tXEC RGM~lKMUST06*RAHH-»t.G0S».ReGX0N = fiRe6 
//STEFLlb UU USNAME=PR02,LUAOHB,OISR~SHR 
//STeF2 EXEC PSM-wECOPY,CONO=((),E0,STbPl) f K£G10^4=&HEG 
//SYSPftlNi DD SYSOUr^A 

//SySuTT 00 DMHf-',Y,6CB=^lRECIfH-U,BLKSiAt“-iu0O*Lll£CL-lOOO;J 

//SYSUT£ DD OShamE^LGUS. ( + i) ,OISP- fNPN,CATLG,D6L£l£i,SPACe~{ TRKtU 

// VOLUMg-SeR-TVOLSERjUNrfi^DISRt 

// 0CB-{SYSi;.DSCB,RECEM-U,etR.SiZ£-tSCK.Si2£ J 

//LASTSTEP EXEC F&Ms^IEFfskiAjftEGiOH^AK 


XOOOOOlOO 

X00000200 

OO0UC300 

OOOOOAOO 

ooocosoo 

0OC0U6OO 
00000 voo 
00 O’00 000 
00000900 
00001000 
Good1100 
(tOOOl-^00 
00001300 
XOCOO i^+OO 
XOOOOllvOO 
yOOOA 600 
00001700 


6. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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TRMHISTl ^ EXTRACT BACKUP VOLUME INFORMATION FROM 
':■ Mikl-WEDGE HISTORY FIl^S ■ 


U GENERAL 

1.1 TRMHISTl is a cataloged procedure developed for application 
systems interfacing with Mini-WEDGE. The function of this 

cataloged procedure is to search the STACK and UNSTAGK History files 
for backup volume serial information pertaining to previous trans¬ 
missions in the WEDGE system. This information may be used to recover 
transmission files if the need arises. 

2. USING TRMHISTl 

2.1 TRMHXSTl is invoked by an EXEC statement and an override card 
as . follows 

// EXEC TRMHISTl 
//STPO.S0RTIN DD * 

(Data Cards - See Div. 2, Chap. 8, Sect. 2, Par. 5.2) 

2*2 If no input data is submitted, an ABEND U0404 will occur with 
the message »N0 INPUT SUBMITTED*. 

2.3 If the //STEPO.S0RTIN DD * override card fs not used, an 
abend UOOlb will occur with the message*IGH043A* 

DATA SET ATTRIBUTES ERROR*. 

3. EXAMPLE OF USE 

3.1 Locate backup volume serial numbers from the STACK and UNSTACK 
History files. 

// EXEC TRMHISTl 
//STEPO.S0RTIN DD * 

S0CSPSSUMHWTMHWPH74O127 
U0CR0CHDRARAM0C0C740066 


(continued on next page) 
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yRMHISTl (CONTD.) 



CATALOGED PROCEDURE LISTING 


MBMBeR Name rRMHisn 

//rftMHISTl PkdC CUF<CHG= 74001 V40Ol,LvX=PRU62.Ri60=6AO0, 

// SWA=0Sr00,SRTCTL=PRD2 
//JTEPO EXEC PSM=SDR1,REGION*!lOK 
//SYSUDUMP DO SYSOUI=A 

/7SOATLIB DO DSNAME=SYSl-SORluIBtDlSp5=SHft 
//SYSout DO sysoor=A 
//♦ 

//« INPUl ii, SUOMlIltO VIA AN OVbftftlDe //STEPO.SORTlN UO * 

//♦ typical transactions ARE shown BtLOVi 

//* COL* ! S OK U S^STACK U^UNSTACK 

//♦ COL. 2-3 LOCAIIUN IIJ EXAMPLE SHOWS nfC* 

//* COL. 4-13 ElLE-iU 
//-* COL. lA-23 SERIAL NUMBER 
//* SOCSPSSOMHWTHHrtPH7‘*Oi27 
//♦ UOCKOCHUkAkAMOcOC7*»006<) 

//* 

//SORT IN pD DUMMY 

//SUKlOUr 00 UNir=DlSR,DSN-6£FiNDtRS,PISP^iNEv/,PASS,0tL£TE). 

7/ SPACE=fl<SOG»(200,Ol0),|JLSEJ , 

tr OCQ = (RtCFM = FB,BLKSiZE^n60ii,LRECL-080) 

//SQRTWKOI do UNIT=OiSKfSPACE~(TAK,ISSWA,itrCONTIG) 

//SDRTWK02 00 UvlIT=DISK,SPACE=(rRK,ieSwA,),»CONlIG) 

//SQRTWK03 DO UNIT-OlSKfSPACe=(TRK,ISSWA,),.CGNTIGJ 
//SYSIN DD OISPt=SHR,DSN=fcSRTCTL..CONTROL(TRMHlSTl) 

//* SORT FieLDS=ti,23,CH,Al 

//STtPl EXEC PSM=TRMHSTta ,ReGiON = lJOR, PARH- 'RMOILCDKChG.* .TlHEato 

■U-* 

//♦ THIS PRUG, IS USED TO EXTRACT BACKUP VOLUME SER1AL“$ FROM 

//* THE stack anpamstack history files, 

//* ■■■■■. 

//SYSOUT DU SYSOUT=A 

//f iNDEfTS DD UNiT=-DlSKtDSN-t.LFiNDLRSt DlSP=TaLD,DtLETE.DCLEt£i , 

If DL6-(RECFf'^F6.bLKSIIE-io00,LHtCL-0b0) 

//STACKMST Di> UNll-TAPt, 


ouooouai. 

OOOOOiOi 

00000201 

000003UI 

ooooa**oi 

00000 OOj 
OOOOOcOi 
UOOOOYCii 
00000 bU. 
OOOOOVOi 
0000 i I/O; 
0 0001 it* i 
0000 i. 201 
0000130 ] 
00001401 
OOOOiSOl 
OOOOlfcOl 
00001701 

ooooiaui 

00001YU1 
00002001 
00002101 
00002201 
00002301 
00002401 
00002301 
00002601 
00002701 
GU002b0i 
00002401 
OOOO.nOO 1 
00003101 
0000.-.201 
00003301 


// 


I'SI/- 

LLOC. .TRFi. 

Sf AC^^.Hi3^GRY(>C ) ,d1SP--ULD, 

0000340. 

if 


DCB- 

(S YS2.DSI..B 

,ReCFM:=FB,BLKSll£=.0Rl60,LR£CL=l6O) 

Gt.00 3‘30i 

//UNSTAMST 

■ DD 

UFi 1 T 

-TAPE, 


OOOOlbCl 

if 


PSN = 

CL OC a « FK M ^ 

UNSl aCK.HISTCKYT -/-O ), Ol.SPi^OLD, 

0 0 (:J / 0 . 

if 


LCLV- 

( S YS2.DSLb 

, K £ C F M ^F B , aOK S i Z t = U k 1 o 0 i L R £ CL = 11-0 ) 

OU0O3bOi. 

>/fULXIFB 

UU 

SYSOur=:A ,DCb = ( bi.KS IZL*0931»LRi:CL.==i33»RtCFM-Ft.> 

GOOD3401 

//ciw xiFa 

DD 

DU MM 

Y 7 SY Soul -A 

sDCb-CtiL:sSIZE = 0931 ,LHeCL- i33,kfcCFM-FB) 

00004001 

//ciinFF . 

OD 

L‘v.' i’ 

Y T 3 f iU T - A 

f L-Cu - {tiLKb 1 At. =^043 1 >.Lit£00 = 133 ,KECFM=FB ) 

OUOU*f lu 1 

/ / D 2 c X T F b 

SO 


» t 3 V 3 l c 

, D C B =• 1 b L i\ r, J Z It - 0 9 3 1 1 LF'. i; L i,i 3 3 , R t; L rf-l =-F a ) 

Dt.-O04 20 1 


DP 

U Ui-' i-' 

Y : S T - 

1 1 i. 6> - ! t'' I i' L '- {>:> } 1, ■ ■ 1 UL — . f L' FFi -F 3 J 

Ct;t-0 'i3b„ 

//MVb.Al-b 

OD 

L ’) " 

t : FYbyu i - A 

vUAiv;*-< FlJ'.Si >LA-.:Cl.-'. 13::' j 

OOGG44bI 

//IHeXIF u 

DO 


Y, bM.L-tl "A 

juAt.'- o-: Lt.AZ t - F'V^A , LP FCL--X:tt' i K LOFM^rb i 

COO'J-T So I 

//LLLXrFA- 

DO 

UUMiiV ■ S.V'Sbul -A 

•i L>C w.= i i-'L ;\ t J Z- (,• v -■ } , 1 >. ‘.CL -11- 3 \ i< t ‘..i .M -r L- ? 

0 00 u bc'ij i 

//MOi; /. 1 F 0 

DD 

DUi'.M 

V » Y I>uU i *>•' 

, Li K. r 1 -. i ti L K b 1 i L — 0 9 1L K DCs- ~ 1.3 3 , K fc C F H =- 1 - D ) 

OvOLA/o; 

//GCF XTFb 

DD 

DUF.MY , ITAUUT-A 

ft’Lb- t BLf-.S 1 zr.‘-U9I''1,LKFcL“i33 »RElFM—F b ) 

00004601 

./FOHbXlFb ' 

DD 

UOMM 

Y , SY sou}=3 

, 0OB = { 3L A-> i Z£ =0 931 > LkLCL - 133 ,H tCFM =F b) 

00004901 

//VCtXl Fij 

OD 

DUMM 

Y, SYbUU T=A 

, ucb- { ULnS 1ZL--0931, i_K LcL-13 3 , R tCFiM-F tS) 

00003*00 i 

//WWFXTFij 

UD 

DUMMY,SYSQDT=A 

,000= (bLKSlZE=0931,caLCL = 133,RECFM:=rbJ 

OOOOblOl 

//WDKRTILE 

DO 

UN [ 7 

~DlSK,OSN= 

OWOHKT iLe , 

coco5 201 

fl 


SPACe= {(.R160,T100,010|,ALS6), 0 

OOOOS301 

if 


DCB = 

(RECFM=FB, 

bLKSiZE=fcRlfaO,LRF.CL=i601 

00003401 



5. REFERENCE 

. I . .. . 

Division 2, Chapter 8, Section 2, WDC WEDGfE Interface System. 
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TRMRECVR ^ TRANSMISSION FILE RECOVERY 


1. GENERAL 

1.1 TRMRECVR is a one-step cataloged procedure that may be used to 
recover selected transmission files from any data set containing 

multiple transmission files that conform to the standards of Cl 95.183, 
Section 35. The hackup and unmatched data sets of the WDG Mini^WEDGE 
System are examples of data sets that could be used. 

2. USING TRMRECVR 

2.1 TRMRECVR is invoked by an EXEC statement coded: 

//EXEC TRMRECVR,DSN=«transmission,dsname' 

The following DD statements must be included to execute the procedure: 

//STEPl.SYSUT2 DD (parameters describing the recovered data set) 
//STEPl.SYSIN DD * ^ 

(Selectcardsdeecribingtrahsmissionfilestoberecovered- 
See Div. 2, Chap, 8, Sect. 2, Par, 6) 

3. EXAMPLE OF USE 


, // EXEC 

TRMRECVR,DSN='PRDG2.TRM.UNSTACK . BACKUP.G0086V0G » 


//STEPl. 

SYSUT2DD (appropriate parameters) 


7/stepi^ 

SYSIN DD * 


Select 

cards 


CATALOGED 

PROCEDURE LISTING,- 


Mbtk name TKMKEtVk 


//IRHRECVft 

PRQC DSN='ERROR* 

C0000100 

//♦ 


kLCOVERS '{RaNSHISSION FILES FROM BACKUP OR 

00000200 

//♦ 


UNMATCHEO Data SETS. THE USER MUST SPECIFY 

00000300 

//* 


TflE OSHAMt OF THE INPUT FILE IN THE DSN 

OOOOOAUO 

//- 


PARAMETER OF THE EXEC CaKO AND SUPPLY DD 

00000 soo 

//« 


OVERRIDE cards - SYSUfii-r-OR THE OUTPUT FILE 

coo00sou 

1 


- SYSIN-FOR CONTROL CAROS IN 

000UC700 



EXAFPLL- 

uOOOOLOO 

//^ 


/ / E X L C 1 RMR E C VR , DSN = • P ROGi! . 1 RM . Ul>IS TAC K , 6 A CK UP . GOObb V 0U * 

UOOOOYOO 

//* 


//STtPi.SYSuTZ DO DSN=PRDZ.TRM.fiFCGVERD,DISP-.... 

OOOOIOOO 

n* 


//STtPi.SYSIN Du 

0000i100 

//V 



00001200 

//V 


EXAMPLE DSNAML OF fHF FicE TD BE RECUVERED , FROM UNPUTI- 

00001ooo 

//^ 


PR0C2.TRM.UNSlACK .backup 

00001AGO 

//^ 


PROGl.IRM.UNISTaCK ,meroFd.3ackuP 

00001 BOO 

i(n 


PRDG2,TRM.UNSTACK.UNMATCH 

0000loOO 

//« 


PkDG2,IRM.STACK.CUMINPUT 

0000i700 

//♦ 



0000IfaOO 

//5TEH1 tXfcC 

PGM=lKMUSiOA,RE&ION=A-OK 

0000iVOO 

//STEMLIB 

DD 

DSNAME=PRD2.LqADL lB»OJSP=-SHft 

00001V20 

// 

DO 

D3NAME-DEVO6,LOAOLia«0iSP=SHR 

OOOOiVAO 

// 

DD 

DSNAME-OEVOQ.LUADLiB,DlSP-SHR 

0000 * 960 

//bVSUUUMP 

DD 

SYSyuT=A 

000u2u00 

//KCVRYKPT 

DD 

SVSUUT=^A 

00002100 

//SEaRCHIh 

OD 

LDNAME^SYSUTl 

00002200 

/ViiYbUTl 

UD 

DSNAMEsCOSN,DiSP=SHR 

00002300 

//f-,CVKYbUI 

DD 

DDNAMt-SYSUtii 

0G002A00 

//CrJlLCHDS 

DD 

DDNAME=SYS1N 

00002 SCO 
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TRMRECVR (CONTD.) 


5. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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TRMSTKAA - COPY APPLICATION SYSTEM OUTGOING TRANSMISSION 
DATA SET TO STACK DISK PACK 

1. GENERAL 

1.1 TRMSTKAA is a cataloged procedure developed for application systems 
interfacing with Mini-WEDGE. The function of this cataloged 

procedure is to move outgoing transmission data files from an application 
system data set onto the STACK disk pack TRMOOl. 

2. SYMBOLIC PARAMETERS 

2.1 TRMSTKAA requires two symbolic parameters and may have three 
additional parameters, which are: 

LOC, a required parameter, specifies the source location, 
for example HW, OC, OH, etc. 

INPUT, a required parameter, specifies the data set name of 

the input data set. The parameter must be enclosed in 
apostrophes if the name is indexed (contains periods). 

This data set is assumed to be cataloged and on disk or 
standard label tape. If these assumptions are not true, 
appropriate overrides must be entered via a 
//STEPl.SYSUTl DD card. 

REG, an optional parameter, specifies the maximum REGION size. 
The default is 20K. Ordinarily this default will not 
need to be changed. 

SPACE, an optional parameter, specifies an estimate of the 

number of 3330 tracks necessary to hold the data being 
transferred. The default is 10 tracks , which has a 
capacity of approximately 110 blocks, 1000 characters 
in length in the initial allocation. The value 
specified for SPACE is Iso used for secondary allocations. 

BLKSIZE, an optional parameter,.specifles the maximum blocksize of 
the transmission file being copied. The default is 1000 . 
This parameter should specify the actual maximum blocksize 
if the file being copied is less than 1000. 

3. ASP CONTROL CARD 

3.1 All jobs which use TRMSTKAA must use the CLASS parameter on the 

ASP statement. This parameter must specify the transmission 

class assigned to the remote location and is of the form CLASS=xxWEDGE 
where xx is the source location, for example HW, OC, OH, etc. 
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TRMSTKAA (CQNTD.) 


4. USING TRMSTKAA 

4,1 TRMSTKAA is invoked by an EXEC statement 

// EXEC TRHSTKAA,l^C=HW,,INPUT=»iN.DSNAHE*^^ 

5, CATAEGGED PROCEDURE LISTING 


HtMBIk WAML IHKSrKAA 

//IKWblKAA PROC RtG=20K. XOOOOOlOO 

// LUC = XX, SUOkth LLltAHON tSfct LIST UELUWIXOOOOOaoO 

// SPALr=U)| UUTPlil SIZE ESTlMATt ITRKS} X00000300 

// I>LKSliE-=lOOUt MAXIMUM ALKS'lZe XOOOOO'tOO 

// •iirPUV.USi^AMt* DSNaME OF IMPUI DATA SET OQOOOSOO 

//♦ LQPr TKAN:3MlSSiON Flue >• ROM application OATA Str TO ODOOOoOO 

//♦ LOCATICJIM GDS EUR STACK, InPuT OOOOOVt'O 

//SltPl tXLC PGK-KECCPY,RCGiaN=6ReG OOOC>OtOC 

/ySYSPKWTl DO SVSaul-A- ocooosoo 

//SVSUTI , UD DSMAMb-eiNPUl,niSF-(OLDiKeePI OUOOlUOO 

//SVSUI2 DU USNAKt-PROc>.TKK,SlACK.llv|PU1,£LOC*(+l), XuUUOllOU 

SPACEiTTRK, «tSPACE»».SPAC£>t»iLSE), XOcOOlZUO 

// ON J Ii^u lSK,VOLU>iF=^SER = TRMCOi ,DiSP~lNeW»CATL&,OfcLe 16) t XUOCgi:JC{> 

// pCf4i^(UtGkG-eS»RtCf H-U,BLKSi2t=.t9LKSI2t) OoC)£i'***00 

’ //T ■ ■ ; OOpUiSoO' 

//* Sample EXECUTE Card - ' ocooiDuO 

//* // tXeC fftKSTKAA,LOC = CM, iN*’UT-«PfU»l.lS.XKFl, IKANTAPfcTOi • OOOOlTUO 

//*■■. O-UO'Olfel'O. ■ 

jt* ' iNPo I iS ALsunep TO at CAiALOGto ooeuivoo 

//♦ IMPUt IS ASiOMLD TO 'i?E UN DISK Uk ST.\NpAKD label TAPE 0000«:uaa 

/(* IF iMMUl «SSUMkl]Li,iS AF4t I'JUt TRUE, apI'kUPRIaTL OuOUkiUO 

//* UVEEtUOtS MUSI BE EfflEREO ViA A //S 11P1. SV SU T1 DU t ARU OOOOLiiuO 

y/A- .. OUQU2J.UO' 

//* VALID LOCaTIGNS - CB, DJt HW* LE, MGt DC, OH. € VC OuO(i2*»Oo 


6. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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PROCEDURE 

ALGOFC 

ALGOFCG 

ALGOFCL 

ALGOFCLG 


ASMFC 

ASMFCG 

ASMFCL 

ASMFCLG 

AUTOFLOW 

CHGPDS 

COBLG 

COBOPTC 

COBUC 

COBUCG 

COBUCL 

COBIICLG 

COBUOPT 


CATALOGED PROCEDURE REFERENCE LIST 


FUNCTION APPENDIX 

ALGOL compile B 

ALGOL compile and execute C 

ALGOL compile and linkage edit D 

ALGOL compile, linkage edit E 

and execute 

ASSEMBLER (F) compile F 

ASSEMBLER (F) compile and execute G 

ASSEMBLER (F) compile and H 

linkage edit 

ASSEMBLER (F) compile, I 

linkage editand execute 

Source program documentation J 

Adding, replacing, changing K 

card image PDS members 

COBOL linkage edit and execute L 

ANS COBOL compile and optimize BA 

object module 

ANS COBOL compile M 

ANS COBOL compile and execute N 

ANS COBOL compile and linkage 0 

edit 

ANS COBOL compile, linkage edit P 

and execute 

See COBOPTC 


Direct access file dump listing 


PAGE 


6 

7 

P 

11 

13 


14 


16 

18 

/ 20 

/ 

25 
85 

26 
27 
29 

31 


DADUMP 


AT 


75 
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CATALOGED PROCEDURE REFERENCE LIST (CONT,) 


PROCEDURE 

FUNCTION 

APPENDIX 

PAGE 

DASORT 

Direct access utility sort 

Q 

33 

DASPACE 

Calculate direct access space usage 
for a logical record of given length 

BC 

88 

DPMPSIL 

List contents of the PSI table 

BF 

93 

FORTGC/ 

FORTRAN (G & H) compile 

R 

35 

FORTHC 




FORTGCL/ 

FORTRAN (G & H) compile and 

S 


FORTHCL 

linkage edit 


FORTGCLG/ 

FORTHCLG 

FORTRAN (G & H) compile, 
linkage edit and execute 

T 

38 

FORTLG 

FORTRAN linkage edit and execute 

U 

40 

LISP 

LIBRARIAN, PDS output 

V 

41 

LIBS 

LIBRARIAN, sequential output 

W 

43 

LIBU 

LIBRARIAN utility procedure 


45 

LIST 

Listing VTOC, PDS directories 
catalogs 

Y 

47 

LISTDISK 

Listing contents of a direct 
access volume and attributes 
of direct access data sets 

Z 

48 

1.1 STOUT 

Listing a member of a card 
image partitioned data set 

A A 

49 

LISTPDS 

Listing a partitioned data set 

AB 

50 

LKED 

Link edit and produce a load module 

AC 

51 

LKEDG 

Link edit, produce a load 
module, and execute 

AD 

5 2 
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CATALOGED PROCEDURE REFERENCE LIST (CONT.) 


PROCEDURE FUNCTION APPENDIX PAGE 


META 

METACOBOL pre-compiler processor 
(includes COBOL F to ANS COBOL 
Conversion) 

BB 

86 

MOD 

Catalog operations, renaming, 
scratching 

AE 

53 

MOVE 

Copying direct access files, 
catalogs, PDS members 

AF 

54 

OPRPNCH 

Obtain copy of console JCL decks 

AG 

56 

PLCPREP 

Preparation for update of production 
libraries 

AH 

57 

PLILFC 

PL/I compile 

AI 

59 

PLILFCL 

PL/I compile and linkage edit 

AJ 

60 

PLILFCLG 

PL/I compile, linkage edit, 
and execute 

AK 

62 

PLILFLG 

PL/I linkage edit and execute 

AL 

64 

PPANAL 

Problem Program Effic1ency-Analyzer 

AV 

79 

PPEXT 

Problem Program Efficiency-Extractor 

AW 

81 

REACT 

Data retrieval system to retrieve data 
from sequential and index sequential 
files producing up to 40 formatted 
output reports 

BD 

89 

RPGEC 

RPG compile 

AM 

65 

RPGECL 

RPG compile and linkage edit 

AN 

66 

RPGECLG 

RPG compile, linkage edit, 
and execute 

AO 

68 

SORT 

Sort/merge with routines that 
require link editing 

AX 

83 
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CATALOGED PROCEDURE REFERENCE LIST (CONT.) 


PROCEDURE 

FUNCTION 

APPENDIX 

PAGE 

SORTD 

Sort/Merge with no routines 
or routines that do not 
require link editing 

AY 

84 

SORTSPAC 

Calculate disk sort work space 

AP 

70 

TLSBINL 

List contents of Tape Library 

System bin table 

BE 

9 2 

TPDUMP 

Tape dump listing 

All 

77 

TRMDUMMY 

Create a "dummy” disk generation 
data set 

BI 

99 

TRMHISTl 

Extract backup volume information 
from Mini-WEDGE History files 

BJ 

101 

TRMRECVR 

Transmission file recovery 

BK 

103 

TRMSTKAA 

Copy application system outgoing 
transmission data set to STACK 
disk pack 

BL 

105 

WECDSK 

Card input to disk 

BG 

94 

WECT 

Card input to standard label 
tape with cataloging 

AO 

71 

WELIST 

Listing VTOC, PDS directories, 
catalogs 

AR 

73 

WEMOD 

Catalog operations, renaming, 
scratching 

AS 

74 

WEOUTPUT 

Summary listing of production 
system output which requires 
further processing 

n iv . 2 , 

Sect. 5 

Ch. 4, 

WETPCOPY 

Copy an entire tape to the double 
end-of-flle mark 

BH 

97 
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ALGOFC - ALGOL COMPILE 



1. GENERAL 

ALGOFC is a one-step catalogued procedure to compile an ALGOL source 
program. 

2. USING ALGOFC 

2.1 ALGOFC may be invoked by an EXEC statement. 

// EXEC ALG0FC 

2.2 The following DD statement must be added to the procedure. 

//ALG0L.SYSIN DD * 

(ALGOL source deck) 
or 

//ALG0L.SYSIN DD (Appropriate parameters defining a 

source input data set) 

3. CATALOGUED PROCEDURE LISTING 


MEMBER NAME ALGOFC 

//ALGOL EXEC PGM=ALGOL ,REGI0N*48K 00020000 
//SYSPRINT CD SYS0UT=A 00040000 
//SYSPUNCH DO SYSGUT=P 00060000 
//SYSLIN 00 OSN=LLOADS£T,UNIT=SYSSQ,SPACE=(36CO,(10»4)), *00080000 
// DISP={MOD»PASS) 00100000 
//SYSUTl DO DSN=&SYSUTl,UMt=SYSSQ,SPACE*(l024#(50,10)) 00120C00 
//SySUT2 OD 0SN=£SYSUT2,UNn=SYSSQ.SeP=SYSUTl*SPACE={1024,{50,10n 0C140000 
//SYSUT3 DO DSN=6SYSUT3fUNl7=SYSDA,SPACE-(1024,(40,l0)J 00160000 


/ j 4. REFERENCE 

IBM 360 OS ALGOL Programmers' Guide, GC33-4000 
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ALGOFCG - ALGOL COMPILE AND EXECUTE 


1. GENERAL 

ALGOFCG is a two-step catalogued procedure to compile and execute an 
ALGOL source program using the IBM LOADER. Note that there is no 
linkage edit step, and a load module is not produced. 

2. USING ALGOFCG 

2.1 ALGOFCG may be invoked by an EXEC statement. 

//EXEC ALG0FCG 

2.2 The following DD statement must be added to the procedure. 

//ALG0L.SYSIN DD * 

(ALGOL source deck) 
or 

//ALG0L.SYSIN DD (appropriate parameters defining a 

source input data set) 

2.3 Additional data sets required by the source program may be specified 
on DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //ALG0L. DD statements and any 
overriding //G0. DD statements. 


2.4 Programs which require a REGION of more than 56K must increment their 
requirements by 28K when using the LOADER. The increased requirement 
should be specified with a region override; 

// EXEC ALG0FCG,G0.REGI0N=9dK 



3. CATALOGED PROCEDURE LISTING 




MEMBER NAME ALGOFCG 
//ALGOL EXEC PGM=ALGOLfRHGI0N=48K 
//SYSPRINT DO SYSOUT*A 
//SYSPUNCH DD SYSOUT=P 

//SYSLIN 00 DSN=aLOADSET,UNIT=SYSSQtSPACEs{3600,(10.4J)* 

// DISP=lMOD,PASS) 

//SYSUTl DD DSN = &SYSUTl,UNIT=SYSSQ,SPACE=C.1024,t50,l0) ) 

//SYSUT2 00 DSN=ESYSUT2,UMT=SYSSQfSEP=SYSUTl,SPACE*C1024tt50tl0)) 
//SYSUT3 DO DSN=&SySUT3,UNIT=SYS0A,SPACE=(l024,i40,10)) 

//GO EXEC PGM=LOAOER,PARM=(MAP,LET,PRINT)#COND=(5fLTtALGOL) 
//SYSLIN 00 DSN=&LOADSET,OISP={OLO,DELETE) 

//SYSLIB DD DSN=SYSl.ALGLiB,DISP=SHR 
//SYSLOUT DD SYSOUT^A 
//SYSPPINT CD SYS0UT=A 
//ALGLDDOl DD SYS0UT=A 

//SYSUTl DO DSN=LSYSUT1,UNIT=SYSSQ,SPACE=(1024,(20,10)) 


00020000 

00040000 

00060000 

«OCO80C00 

00100000 

00120000 

0C14CC00 

00160000 

00180000 

00200000 

00220000 

00240000 

00260000 

00280000 

00300000 
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4. REFERENCE 

IBM 360 OS ALGOL Programmers’ Guide, GC33-4000 
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ALGOFCL - ALGOL COMPILE AND LINKAGE EDIT 


1. GENERAL 

ALGOFCL is a two-step cataloged procedure to compile and linkage edit 
an ALGOL source program. Programmers will generally use this procedure 
when they wish to retain a load module in the load library specified 
by the SYSLMOD statement in the linkage edit Step. 

2. USING ALGOFCL 

2.1 The ALGOFCL procedure is invoked with an EXEC statement coded: 

// EXEC ALG0FCL 

2.2 The following DD statements must be added to the procedure. 

2.21 A ALG0L.SYSIN DD statement defining the input. 

//ALG0L.SYSIN DD * 

(ALGOL source deck) 
or 

//ALG(^L.SYSIN DD (parameters defining a source input 

data set) 

2.22 A LKED.SYSLM0D DD statement to define a storage place for the 
load module. 

//LKED.SYSLM0D DD (parameters describing the load module PDS) 

2.3 The following DD statement may be added to supply additional input 
to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //ALG0L. DD statements. 

3. EXAMPLE OF USE 

// EXEC ALG0FCL 
//ALG0L.SYSIN DD * 

ALGOL source deck 

//LKED.SYSLM0D DD DSN=DEV.L0ADLIB(TESTM0D),DISPOSER 
/* 


(Continued on Next Page) 



10 


Western ElectriG Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


Division 3 Chapter 5 
Section 1 Appendix D 
Issue 1 Date 6/29/73 


ALGOFCL - ALGOL COMPILE AND LINKAGE EDIT (CONT.) 


4. CATALOGED PROCEDURE LISTING 



MEW6ER NAME ALGOFCL 

//ALGOL EXtC l‘GM*ALG0LtREGIQN=4aK 
//SYSPRINT DD SYSOUT=A,DCB=(DSORG=PS) 

//SYSPUNCH 00 1>YS0UT-P 

//SYSLIN 00 0SN = LLUADS.LTfUNIT=SYGSQ»SPACE»=(3600t {10#4)), 

// OiGP=(MUO,PASS) 

//SYSUll DO 0SN=LSYSU1i,UNlT=SYSSQfSPACE={102A,(50,10)) 

//SYSUT2 00 OSNs=LSYSUT2,UNlT=SYSSQ,SEP=SYSUTl,SPACE=(lO24,(50,lO) ) 
//SYSUT3 00 0SN = LSYSUT3,UNIT=SYS0A,SPACE=i( 1024,(40,10) ) 

//LKtO EXEC PGM=AT riEWL,PAKM='XREF,LlST,LET*,C0N0«(5,LT,ALG0L), 

// RtGIUN=yoK 

//SYSPRINT 00 SYSOOT-A 

//SYSLIN 00 OSN=LLUAOSET,OISP»(OLO,DELETE) 

// 00 DONAMe=SYSlN 

//SYSLIB 00 DSN = SYS1 .ALGLlB,01Sti»SHR 

//SYSLMOD 00 OcN=LGOSET(GO),UNIT=SYSDA,DISP={MQ0,PASS1, 

// SPaCE = (TRK., (9,4,1) ) 

//SYSUTl 00 0SN«L3YSUTI,UNIT=SYSDA,SEP=(SYSLIB,SYSLMOD), 

// SPACE«(TRK,(14,5)) 


00020000 

00040000 

00060000 

*00080000 

OOlOOOOO 

00120000 

00140000 

00160000 

ooiboooo 

00190000 

00200000 

00220000 

00240000 

00260000 

*00280000 

00300000 

*00320000 

00340000 


5. REFERENCE 

IBM 360 GS ALGOL Programmers* Guide, GC33--4000 
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ALGOFCLG - ALGOL COMPILE. LINKAGE EDIT, AND EXECUTE 

1. GENERAL 

ALGOFCLG is a three-step catalogued procedure to compile, linkage edit, 
and execute an ALGOL source program. 

2. USING ALGOFCLG 

2.1 ALGOFCLG may be invoked by an EXEC statement. 

// EXEC ALGOFCLG 

2.2 The following DD statement must be added to the procedure. 

//ALG^L.SYSIN DD * 

(ALGOL source deck) 
or 

//ALG0L.SYSIN DD (appropriate parameters defining 

a source input data set) 

2.3 In order to supply additional input to the linkage editor, the 
following DD statement may be added. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //ALG0L. DD statements. 

2.4 Additional data sets required by the source program may be specified 
on DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //ALG0L. DD statements, all 
//LKED. DD statements, and any overriding //G0. DD statements. 


(Continued on Next Page) 
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ALGOFCLG - ALGOL COMPILE, LINKAGE EDIT, AND EXECUTE (CONT.) 


3. CATALOGUED PROCEDURE LISTING 


MEMBER NAME ALGOFCLG 

//ALGOL EXEC PGM-ALGOLfREGION-ABK 00020000 

//SYSPRINT Ob SYSOUT^A 00040000 

//SYSPUNCH DO SYSQUT-P 00060000 

//SYSLIN DO OSlM*aLOAOSETfUNiT*SYSSQ.SPACE«<3600#(10#4)), *00080000 

// OISP={MOD.PASSi 00100000 

//SYSDTl DD OSN=£SYSUTl,UNIT»SYSSQfSPACE*(1024t«5O*lO)j 00120000 

V y //SYSUT2 DO DSN=£SYSUT2,UNlT=SYSSQ,SEP*SYSUTlfSPACE«(1024,iSO»10)J 00140000 

//SYSUT3 OD DSN=£SYSUT3,UN1T=SYSDA,SPACE*C1024#(40,10)) 00160000 

//LKED EXEC PGM= IEWL,PARM»•XREF,LI ST,LET•tC0N0»(5,LT,ALGOL),REGldN*96K 00180000 
//SYSPRINT DD SYSOUT=A 0C20GCG0 

//SYSLIN DD DSN=£LOADSET,DiSP«(OLD»DELETE) 00220000 

// DO DONAME=SYSIN 00240000 

//SYSLI8 DD 0SN=SYS1*ALGLIB.DISP*SHR 00260000 

//SYSLMQD DO OSN=£GOS£T(GO»,UNlT»SYSOA,DISP*(MOD,PASS)f *00280000 

// SPACE=(TRK,(9,4,1)) O03COCOO 

//SYSUTl DD 0SN = £lSYSUTl,UNn*SYS0A,SEP»( SYSLIB,SYSLMOD) , *00320000 

// SPACE=(TRK,(14,5)) 00340000 

//GO EXEC PGM=*.LKED.SYSLMOD,COND=((5,LT,ALGaL),(5,LT,LKEDI) 00360000 

//ALGLDDOl DO SYSOUT^A 00380000 

//SYSPRINT DO SYS0UT»A 00400000 

//SYSUTl DD DSN*£SYSUTl,UNIT*SYSSQ,SPACE»ll024,{20,iO)) 00420000 


4. REFERENCE 

IBM 360 OS ALGOL Programmers’ Guide, GC 33-4000 
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ASMFC - ASSEMBLER(F) COMPILE 


1. GENERAL 

ASMFC is a one-step catalogued procedure to compile an ASSEMBLER(F) 
source program. It does not normally produce an object module. 

2. USING ASMFC » 

2.1 ASMFC may be invoked by an EXEC statement. 

// EXEC ASMFC 

2.2 The following DD statement must be added to the procedure. 

//ASM.SYSIN DD * 

ASSEMBLER source deck 
or 

//ASM.SYSIN DD (appropriate parameters defining a 
source input data set) 

3. CATALOGUED PROCEDURE LISTING 


MEMBER NAME ASMFC 

//ASM EXEC PGM=IEUASM,PARM»'NODECK*,REGION»90K 
//SYStIB OD DSNAME»SYS1.MACHB,DISP*SHR 
//SYSUTl OD UNIT-SYSDA,SPACE-(TRK,(20,5JI 
//SYSUT2 OD UNIT»SYSOA,SPACE*(TRK,(20,5)» 

//SYSUT3 OD UNIT=(SYSDA,SEP={SYSUT2»SYSUTltSYSLI8)I, 

// SPACE* (TRK,(35,Sn 

//SYSPRINT DO SYSOUT=A,CCB=(RECFM=FBA,LRECL*121,8LKS1ZE*1089) 0768 

4. REFERENCE 

IBM 360 OS ASSEMBLER(F) Programmers’ Guide, GC26-3756 
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ASMFCG - ASSEMBLER(F) COMPILE AND EXECUTE 


1. GENERAL 

ASMFCG is a two-step catalogued procedure to compile and execute an 
ASSEMBLER(F) source program using the IBM LOADER. Note that there is 
no linkage edit step, and a load module is not produced. 

2. USING ASMFCG 

2.1 ASMFCG may be invoked by an EXEC statement. 

// EKEC ASMFCG 

2.2 The following.DD statement must be added to the procedure. 

//ASM.SYSIN DD * 

ASSEMBLER source deck 

■ ' ' ' SL. ■ 

//ASM.SYSIN DD (appropriate parameters defining a 

source input data set) 

2.3 A CPU time limit of 2 minutes is assumed for execution. A small 
portion of this time will be used by the LOADER prior to execution. 

If additional time is needed, the TIME parameter may be coded on the EXEC 
statement. 

// EXEC ASMFCG, TIME. G0=*5 

2.4 Additional data sets required by the source program may be specified 
on DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //ASM. DD statements and any 
overriding //G0. DD statements. Please note that no SYSUDUMP or 
SYSABEND DD statement is supplied in the GO step. The user must 
provide one if he wishes to cover ABEND conditions. 

2.5 Programs which require a REGION of more than 56K must increment their 
requirements by 28K when using the LOADER. The incremented requirement 

should be specified as follows: 

7/ EXEC ASMFCG,LDREG=90K 

This will automatically increment both the REGION and the LOADER'S SIZE. 
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ASMFCG - ASSEMBLER(F) COMPILE AND EXECUTE (CONT.) 


3. CATALOGUED PROCEDURE LISTING 


MEMBER NAME ASMFCG 

//ASMFCG PROC LOREG=90K,PARAM* lAJ 10/20/ 

//ASM EXEC PGM=IEUASM,PARM*(N0DECK,L0AD},REGI0N*90K 

V/SYSLIB 00 DSN*SYS1-MACHB,DISP*SHR 

//SYSUTl DO UNIT=SYSDA,SPACE*(TRKr(20»5)l 

//$YSUT2 DO UNIT*SYSOA,SPACE=(TRK,(20,5)) 

//SYSUT3 DO UNIT={SYSDA,SEP=(SYSUTl,SYSUT2fSYSLIB)), 

// SPACE*{TRK, (35,5) J 

//SYSPRINT DO SYSQUT=A 

//SYSCO DD DSN=tl&LQADSET,UNIT=SYSDA,SPACE=C400,(50,10)) , 

// DISP=(MOO,PASS) ,DCB=(RECFM=FB,LRECL=80,8LKSIZE='400) 

//GO EXEC PGM=LOAOER,PARM='MAP,LET,SIZE = £LOR£G,NCAl./£PARAMS 

// REGI0N=£L0REG,TIME=2,C0ND=(5,LT,ASM) 

//♦ FOR AN ABEND DUMP INCLUDE A SYSUOUMP DO CARD 
//SYSLOUT DO SYSOUT=A 

//SYSLIN DO DSN=C£LOADSET,OISP=(OLD,DELETE) 


?1 OCOOUlOO 
. 000C020Q 
00000300 
00000400 
00000500 
C00000600 
00000700 

oococeoo 

C00000900 

OCOOICOO 

COOOOllOO 

00001200 

00001300 

00001400 

00001500 


4. REFERENCE 


IBM 360 OS ASSEMBLER(F) Programmers’ Guide, GC26-3756 
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ASMFCL - ASSEMBLER(F) COMPILE AND LINKAGE EDIT 


1, GENERAL 


ASMFCL is a two-step cataloged procedure to compile and linkage edit 
an ASSEMBLER(F) source program. Programmers will generally use this 
procedure when they wish to retain a load module in the load library 
specified by the SYSLMOD statement in the linkage edit step. 


2. USING ASMFCL 


2.1 The ASMFCL procedure is invoked with an EXEC statement coded: 

// EXEC ASMFCL 

2.2 The following DD statements must be added to the procedure. 

2.21 A ASM.SYSIN DD statement defining the input. 

//ASM.SYSIN DD * 

ASSEMBLER source deck 
or 

//ASM.SYSIN DD (parameters defining a source input 
data set) 

2.22 A LKED.SYSLM0D DD statement to define a storage place for the 
load module. 

//LKED.SYSLM0D DD (parameters describing the load module PDS) 

2.3 The following DD statement may be added to supply additional input 
to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //ASM. DD statements. 

3. EXAMPLE OF USE 

// EXEC ASMFCL 
//ASM.SYSIN DD * 

ASSEMBLER source deck 

//LKED.SYSLM0D DD DSN=DEV.L0ADLIB(TESTM0D),DISP=SHR 
/* 


(Continued on Next Page) 
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ASMFCL - ASSEMBLER(F) COMPILE AND LINKAGE EDIT (CONT.) 



4. CATALOGED PROCEDURE LISTING 


MEMBER NAME ASMFCL 

//ASM EXEC PGM=lEUASM,PARM*»NODECK,LaAD*,REGI0N=90K 
//SYSLIB CD DSNAME=SVS1.MACLIB,DISP=SHR 

//SYSUTl DO UNIT=SYSDA,SPACE=(TRK,(20*5)) 

//SY$UT2 DD UNIT=SYSDA,SPACE=(TRK,120.5)) 

//SYSUT3 DD UNII=(SYSDA,SEP=(SYSUT2.SYSUTl,SYSLIB)), 

// SPACE={TRK,(35,5)) 

//SYSPRINT DO SYSOUT=A,DCB=lRECFM=FBA,LRECL*121,BLKSIZE»1089) 0768 
//SYSCO DO DSN=tLOAOSET,UNIT=SYS0A.SPACE=(400,(5O,10)), 

// DISP=(MaD,PASS) ,DCB=(R£CFM=FB,LRECL=80,BLKSIZE=400) 

V/LKEO EXEC PGM= ATT IEWL ,PARM= •XREF,LI ST,LET•,REG ION=90K, 

// C0ND=(8*LT,ASM) 

//SYSLIN OD DSNAME=CLGAOSET,DISP=(OLD,DELETE) 

// DO DCNAME^SYSIN 

//SYSUTl DD UNIT=(SYSDA,SEP=SYSLIN),SPACE=(TRK,(14,15)) 

//SYSPRINT OD SYSOUT=A 


00000010 
0C0CC020 
00000030 
C0000040 
X00000050 
00000060 
00000070 
00000080 
0COOG090 
00000100 
OOOOOllO 
00000120 
OC000130 
00000140 
00000150 


5. REFERENCE 

IBM 360 OS ASSEMBLER(F) Programmers’ Guide, GC26-3756 
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ASMPCLG - ASSEMBLER(F) COMPILE, LINKAGE EDIT, AND EXECUTE 


1. GENERAL 

ASMFCLG is a three-step catalogued procedure to assemble, linkage 
edit, and execute an ASSEMBLER(F) source program. 

2. USING ASMFCLG 


2.1 ASMFCLG may be invoked by an EXEC statement, 

// EXEC ASMFCLG 

2.2 The following DD statement must be added to the procedure. 

//ASM.SYSIN DD * 

ASSEMBLER source deck 
or 

//ASM.SYSIN DD (appropriate parameters defining 
a source input data set) 

2.3 In order to supply additional input to the linkage editor, the 
following DD statement may be added. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //ASM. DD statements. 

2.4 Additional data sets required by the source program may be specified 
on DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //ASM. DD statements, all 
//LKED. DD statements, and any overriding //G0. DD statements. 
Please note that no SYSUDUMP or SYSABEND DD statement is supplied 
in the GO step. The user must provide one if he wishes to cover 
ABEND conditions. 


(Continued on Next Page) 
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3. CATALOGUED PROCEDURE LISTING 



HENBER NAME ASNFCLG 

//ASH EXEC PGMaIEUASN,FARM*•NODECK,LOAD*.REGI0N«90K 
//SYSLIB OD 0SNAME»SYS1«MACL1B,DISP»SHR 

//SYSUTl DO UNlT«SySDA,SPACEa(TRK,l20,5)) 

//SYSUT2 DO UNIT»SYSOA,SPACE=ITRK,«20,5)) 

//SYSUT3 OD UNIT»(SYSDA,SEP=(SYSUT2,SYSUTl,SYSLIB)J, 

// SPACE=(TRK,{35,5)) 

//SYSPRINT DO SYSOUT=A,DCB=(R£CFM=FBM,LReCL«121,0LKSIZE=lO89) 0568 
//SYSCO DD DSN-£LOADSET,UN1T=SYSOA,SPACE=(40O,C5O,1O)), 

// DISP=(M0D,PASS)fOCB=CRECFM=FB,LRECL*80,BLKSIZE*400) 

//LKED EXEC PGM*IEWL,PARM**XR£F,LIST,NCAL•,ReGI0N*90K, BJl 8/72 

// COND=C8,LT,ASM) 

//SYSLIN 00 DSNAME=£LOADSET,01SP=IOLO,DELETE) 

// DD DDNAME=SYSIN 

//SYSLMOO 00 0SN=£TEMP{PDS),UNIT*STSDA,SPACE»(TRK,19,4,l)), 

// DISP=(MOD,PASS) 

//SYSUTl DO UNIT={SYSOA,SEP=(SYSLIN,SYSLMOO)) ,SPACE=<TRK,(14,5)) 
//SYSPRINT DO SYSOUT«A. 

//GO EXEC PGM»*.LKE0.SYSLM00 

//♦ FOR AN ABEND DUMP INCLUDE A SYSUDUMP DO CARD 


00020000 

OC040000 

00060000 

00080000 

XOOIOOOOO 

00120000 

00140000 

00180000 

00200000 

00220000 

0C240CO0 

00260000 

00280000 

00300000 

00320000 

00340000 

00360000 

0C380000 

00400000 


4^ REFERENCE 

IBM 360 OS ASSEMBLER(F) Programmers Guide, GC26-3756 
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AUT0FLOW - SOURCE PROGRAM DOCUMENTATION 


1. GENERAL 

AUTOFLOW is a cataloged procedure which facilitates 
use of the leased utility program, AUTOFLOW, for 
generating a flowchart, source and cross>*reference 
listings from program source statements. These 
facilities are useful in Job maintenance functions 
and are acceptable as part of the final documentation 
package required by Headquarters, 

2. USING AUTOFLOW 

2.1 The AUTOFLOW procedure is invoked with an EXEC 
statement coded: 

// EXEC AUTOFLOW,NAME«PROGRAM 
control cards 

2.11 The NAME parameter equates to the programmer 
supplied member name. This name appears on 

each page of the printed listings. 

2.12 Control card statements are required to select 
desired source language routines. The material referenced 
in Paragraph 8 contains a description of the control 
cards and other information for using AUTOFLOW, 

2.2 The AUTOFLOW procedure uses a REGION parameter 
of 120K. 

3. ASP CODING REQUIREMENTS 

3,1 AUTOFLOW output is printed with eight lines per inch 
spacing. This spacing requires an ASP FORMAT card 
as follows: 

//^FORMAT PR,DDNAME-SYSPRINT,CARRIAGE-E025 

All SYSOUT output will be under the control of the above 
FORMAT statement. 
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AUTOFLOW > SOURCE PROGRAM DOCUMENTATION (CONT,) 


4. EXAMPLES OF USE 

4.1 Single Card Module 
//FLOW.SYSIN DD * 

COBOL CLIST,DXREF) 'I Specify one control card 
ASSEMBLY (LIST) ' I statement to select desired 
FORTRAN (LIST) [ routine. 

PL/I (LIST) ^ 

source deck ( ALL JCL REMOVED ) 

./ MODEND 
/* 

4.2 Multiple Card Modules 

//FLOW.SYSIN DD * 

COBOL (LIST,DXREF) 
source deck 
./MODEND 
ASSEMBLY (LIST) 
source deck 
./ MODEND 
FORTRAN (LIST) 
source deck 
./ MODEND 
/* 

4.3 Multiple Mixed Media Modules 

//FLOW.DISK DD DSN-SRCPDS,DISP-SHR 
//FLOW.SYSIN DD * 

FORTRAN (LIST) 
source deck 

DISK(MEMBER) COBOL (LIST,DXREF) 

/* 

4.4 Librarian Source Modules 

//FLOW.MASTER DD DSN-DEV.SOURCE 
//FLOW.SYSIN DD * 

COBOL (LIST) 

$LIBR(MEMBER) COBOL (LIST,DXREF) 

/* 
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AUTOPLOW - SOURCE PROGRAM DOCUMENTATION (CONT.) 



5. ANS COBOL MODULES 

5.1 An additional control statement Is required to 
successfully chart an ANS COBOL source module* 

It is the OPTION statement and it must follow the 
COBOL statement. The form of the OPTION statement is; 

OPTION ANSI-YES 

5.2 If the ANS COBOL source module is not on cards, 
an additional parameter must be specified in the 

COBOL statement in order that the OPTION card be 
processed. The additional parameter is named PARM. 

In the example in paragraph 4.3, if the module in 
SRCPDS is ANS COBOL, the following should be coded; 

DISK(MEMBER) COBOL (LIST,DXREF,PARM) 
OPTION ANSI-YES 

6. AUTOFLOW OUTPUT 

Output media from AUTOFLOW is directed to SYSOUT 
under the ddname SYSPRINT. 

7. CATALOGED PROCEDURE LISTING 





■MEHaER NAKE AUTOFLOW 

// PROC BiN=XXX,NAME=PRO&NAHE 

//FLOW EXEC P&.M-AUTOFLOWtPARMV^^-'^AME* ,RE&lON = 120K 

//STEPLIB DO D$N=SyS2 .AUTOFLOW.LOADLIBtDiSP=SHR 

//SYSPRIMT DD SYS0UT=A,DCB=lRECFM=F3A,BLKSIZE=1330,LR£CL=i33> 

//ACTIVITY DO DSN=SYSZ.AUTOFLOW.ACTIVITY,0ISP=SHR 

//SYSAFOl DD UNIT=SvsDArSPACG=(CYL,(i0,5)), 

// I)CB=( BUFHO=i,&UFL=2 0A8,SLKiIZE = 2048 ) 

//SY5AF02' 00 UMIT =S YSDA , SPaCE - { CYL, {10, B ) ) , 

// DCe=(SUF:'»U = l,0UFL=2048,BLKSlZE = 2043) 

//SYSAF03 DD UNIT = SYSDA,SPACE=<CYL,(10,5 ) ), 

// DCB={6UFNO=1,BUFL=2048»SLKSIZE=2048) 

//SYSaFOh DD UNIT = SYSDA,SPAC£=(CYL, (.10,5 ) ), 

// DCB=( bUFND=:l,BUFL=204e,BLKSirE = 2048; 

//SYSAFD5 DD UWIT=SYSDA,SPACc=(CYL,(10,5)), 

// DL.3=(eUFi(0 = l,BUFl_=0600,BLKSlZ£=0600) 

//SY SAFOb DD UNIT = SYSDA,SPACE=(CVL, (I 0,5)), 

// DCB=(BUFNO=l,BUFL=060O,BLKSlZE=06fl0) 

//blNOD DD UNiT=DISK,SPAC£=lTRKfO I ,DSN=ACBIN 


OOCCOiCO 

00000200 I 

CC0CC3C0 : 

0CG004CC , 

000005CO 
00000600 ; 

00000700 i 
00000800 ! 

C0000900 ' 

OOOOIOCO : 

00001100 J 

00001200 I 
00001300 I 
C0001400 ! 

COG01500 
POOOlbOO 
000017CO 
00001800 



8. REFERENCE 


Division 3, Chapter 2, Section 3, AUTG^FLOW 
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CHGPDS ~ ADDING, REPLACING, CHANGING CARD IMAGE PDS MEMBERS 

1. GENERAL 

CHGPDS is a cataloged procedure which facilitates use of the IBM Utility 
Program lEBUPDTE for updating an existing card image partitioned data set 
The data set must be cataloged. 

2. SYMBOLIC PARAMETER 

CHGPDS requires a DSN parameter which supplies the library name. The 
parameter must be enclosed in apostrophes if the name is indexed 
(contains periods), 

3. USING CHGPDS 

3.1 The CHGPDS procedure is invoked with an EXEC statement which includes 
the symbolic parameter, DSN. 

// EXEC CHGPDS,DSN='user.library' 

3.2 The user must include a SYSIN DD statement and appropriate lEBUPDTE 
control statements 

//SYSIN DD * ^ //SYSIN DD DATA 
control statements 

4. EXAMPLE OF USE 

// EXEC CHGPDS,DSN='PLC.PR0CLIB' 

//SYSIN DD DATA 
./ ADD NAME=NEWPR0C 
./ NUMBER NEW1=10,INCR=10 
new procedure JCL cards 
/* 

5. RESTRICTION 

The Library must be cataloged and have LRECL=80. 

6. SUGGESTED USE 

CHGPDS is recommended for updating libraries such as procedure or 
control libraries from card input. 


(Continued on Next Page) 
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CHGPDS - ADDING, REPLACING, CHANGING CARD IMAGE PDS MEMBERS (CONT.) 




7. CATALOGED PROCEDURE LISTING 


MEMBER NAME CHGPDS 
// PROC DSN=*SYS1,PRQCLIB* 

//CHG EXEC PGM=ATTUPOTEfDPRTY=(13fII 
//SYSPRINT OD SYSaUT=A 
//SYSUTl DO OrSP=SHR,DSN=£OSN 
//SYSUT2 DD DISP=SHk,DSN**,SYSUTl 


00000100 

00000200 

00000300 

00000400 

00000500 



8. REFERENCE 

IBM OS Utilities GC28-6586, lEBUPDTE 
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COBLG - COBOL LINKAGE EDIT AND EXECUTE 


u 


( i 



1. GENERAL 


COBLG is a two step cataloged procedure to linkage edit an object or 
load module to produce a load module and execute it. The linkage edit step 
provides a reference to the automatic call library SYSl.COBLIB. This will 
be effective for any COBOL compiler supported by the Data Center. 

2. USING COBLG 

2.1 COBLG may be invoked by an EXEC statement. 

// EXEC C0BLG 

2.2 The following DD statements may be added to supply additional input to 
the linkage editor. 

//LKED.SYSIN DD (parameters describing linkage editor control input 

and/or object module input) 

//LKED.ddname DD (parameters describing an additional call library) 

2.3 Additional data sets required by the users program may be specified on 
DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //LKED. DD statements. 


3. CATALOGED PROCEDURE LISTING 



MEMBER NAME COBLG 

//LKED EXEC PGM=IEWL»FARM*'XREF,L1ST•,REG10N=90K 
//SYSLIN DD DDNAME=SYSIN 

//SYSLMOD DD DSNAME = &G00ATAI RUN),DISP=(NEW,PASS)t 
// UNIT=SYSDA,SPACE=(TRKf(9,4,1)) 

//SYSLIB DD DSNAME=SYSl.C08Lia,0ISP=SHR 
//SYSUTl DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 

// SPACE=(TRK,{14,5)) 

//SYSPRINT DD SYS0UT=A 

//GO EXEC PGM=*.LKED.SYSLMOD,C0ND=(5,LT,LKED) 

//SYSUDUMP DD SYS0UT=A,DCB=(RECFM=FBA,LRECL=121,BLKSI2E=1089) 0568 


OOOOOlOO 

00000200 

X00000300 

00000400 

00000500 

X00000600 

00000700 

00000800 

OCCOC900 

OCOOIOOO 


4. REFERENCE 

IBM ANS COBOL version 4 Programmers* Guide, SC28-6456 
IBM 370 OS/VS Linkage Editor and Loader, GC26-3813 

IBM 370 OS/VS Message Library: Linkage Editor and Loader Messages, GC38-1007 
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COB^C - ANS COBOL COMPILE 




1. GENERAL 

C0B4C is a one-step catalogued procedure to compile an ANS COBOL source 
program. It does not normally produce an object module. 



2. USING C0B4C 


2.1 C0B4C may be invoked by an EXEC statement. 

// EXEC C0B4C 

2.2 The following DD statement must be added to the procedure. 

//C0B.SYSIN DD * 

COBOL source deck 
or 

//C0B.SYSIN DD (appropriate parameters defining a 
source input data set) 



3. CATALOGUED PROCEDURE LISTING 

MEMBER NAME COB4C 

//COB4C PkOC LINES=55 

//COB EXEC PGM=IKFCBL00,REGICN=128K, 

// PARM = *NOLOAD,NOaECK,LINECNT=CLINES,BUFSI2E=16K,SIZE=120K » 
//STEPLIB UO OSN=SYS2.CObGL4.LlNK,01SP=SHR 

//SYSPKINT OD SYSCUT=A,UC3 = {RECFM=Fc.A,LRECL=I21,BLKSI2E = 1089) 
//SYSUTl DD UNn=SYSDA,SPACE = (TRK,{ 12»5) ) 

//SYSUT2 DO UNIT=SYSOA,SPaCE={TRK,(12,5)1 
//SYSUT3 OD UNIT=SYSDA,SPaCE=(TRK,(9,5)) 

//SYSUT4 OD UN1T=SYS0A,SPAC£=(TRK,(6,5)> 

4. REFERENCE 


00000005 

OOOOOOlO I 

00000012 1 

00000015 

0OC00030 

OCOOOQ40 

U0000050 

OCOC0060 

00000070 


IBM ANS COBOL version 4 Programmers* Guide, SC28-6456 
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C0B4CG - ANS COBOL COMPILE AND EXECUTE 


1. GENERAL 

COB4cG is a two-step catalogued procedure to compile and execute an 
ANS COBOL source program using the IBM LOADER. Note that there is 
no linkage edit step, and a load module is not produced. 

2. USING COB4CG 

2.1 COBACG may be invoked by an EXEC statement. 

// EXEC C0B4CG 

2.2 The following DD statement must be added to the procedure. 

//C0B.SYSIN DD * 

COBOL source deck 
or 

//C0B.SYSIN DD (appropriate parameters defining a 

source input data set) 

2.3 A CPU time limit of 10 minutes is assumed for execution. A small 
portion of this time will be used by the LOADER prior to execution. 

If additional time is needed, the TIME parameter may be coded on the EXEC 
statement. 

// EXEC C0B4CG,TIME.G0»=12 

2.4 Additional data sets required by the source program may be specified 
on DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //C0B. DD statements and any 
overriding //G0. DD statements. 

2.5 Programs which require a REGION of more than 56K must increment their 
requirements by 28K when using the LOADER. The incremented requirement 

should be specified as follows: 

// EXEC C0B4CG,LDREG=9OK 

This will automatically increment both the REGION and the LOADER'S SIZE. 


(Continued on Next Page) 
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C0B4CG - ANS COBOL COMPILE AND EXECUTE (CONT’D) 



3. CATALOGUED PROCEDURE LISTING 

HEMBE'OiAME ' C0B4CG 

//CGBACG PROC LDREG=£4K,L!NES=55 

//COB EXEC PGM=lKFCBLaO»REGlaN=120K» 

// PARM=»LINeCNT=CLif^£SyBUFSIZE=16K,S12E=120K* 

//STEPLI8 DO DSN=SYS2.C0B0L4.LINK,DISP=SHR 

//SYSPRINT DO SYS0UT=A,DCB={RECFK-FBA,LRECL=121,BLKSI2E=1089) 
//SYSUTl OD UNIT=SYSDA,SPACE = (TPKt a2.i>n 
//SYSUT2 OD UN1T^SYSL)A,SPACE=(TRK,(12,5) ) 

//SYSUT3 DO UNIT=SYSOA,5PACE=(TRK,(9,51) 

//SYSUT4 DO UNI7=SYSDA,SFACE=(THR»(6,yJ) 

//SYSLIN OD DS^AME=C&LOAOSETyOISP-(MOO,PASS),UNIT=SYSDA, 

// SPACE=<400»(50,10)),DC&=(RECFM=Fb,LKECL=30,&LKSIZE=40C) 1/71 

//GO EXEC PGM=LOADER,PARM = *MAP,LET,SIZE=CLDREG'* ,REGION=CLOREG, 

// CONO=(5,LT,COBI,TIME-10 

//SYSLIN DO OSN=CCLOAOSET,DISP=(OLD,DELETE) 

//SYSLIB DD DSN=SYS2.C0B0L4.LIB,0ISP=SHR 

//SYSLOUT OD SYSGUT=A,OCe = (R6CFM=:fBA,LR6CL=121,t3LKSIZE=121) 
//SYSUOOMP OD SYS0UT=A,DCB=<REGFM=FBA,LRECL=12l,BLKSTZE=1039) 1/71 
//SYSCWT 00 SYSGUT=A,DCB=(RECFM=FSA»LR£CL=120,BLKSIZ£=120> 
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4. REFERENCE 

IBM ANS COBOL version 4 Programmers* Guide SC28-6456 
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C0B4CL - ANS COBOL COMPILE AND LINKAGE EDIT 


1. GENERAL 

COB4CL is a two-step cataloged procedure to compile and linkage edit 
an ANS COBOL source program. Programmers will generally use this 
procedure when they wish to retain a load module in the load library 
specified by the SYSLMOD statement in the linkage edit step. 

2. USING COBACL 

2.1 The C0B4CL procedure is invoked with an EXEC statement coded: 

// EXEC C0B^L 

2.2 The following DD statements must be added to the procedure. 

2.21 A C0B.SYSIN DD statement defining the input. 

//C0B.SYSIN DD * 

(COBOL source deck) 
or 

//C0B.SYSIN DD (parameters defining a source input 
data set) 

2.22 A LKED,SYSLM0D DD statement to define a permanent storage place 

for the load module, 

//LKED.SYSLM0D DD (parameters describing the load module PDS) 

2.3 The following DD statement may be added to supply additional input 
to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //C0B. DD statements. 

3. EXAMPLE OF USE 

// EXEC C0B4CL 
//C0B.SYSIN DD * 

COBOL source deck 

//LKED.SYSLM0D DD DSN=DEV.L0ADLIB(TESTM0D),DISP«SHR 
/* 


Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


(Continued on Next Page) 



Western Electric Company Division 3 Chapter 5 

Warrenville Data Center 30. Section 1 Appendix 0 

PROGRAMMING S & R MANUAL Issue 3 Date 04/09/76 




C0B4CL - ANS COBOL COMPILE AND LINKAGE EDIT (CONT.) 



CATALOGED PROCEDURE LISTING 

MEMBER NAME C0B4CL 

//C0B4CL PROC L1NES=55 

//COB EXEC PGM=IKFCBLOO,REGION=128K, 

// PARM=*LINECNT=€L1NES,BUF=16K,SUE=120K» 

//STEPLIB DO DSN=SyS2.C0BaL4.LINt<»DISP-SHR 

//SYSPRINT DO SYSUUT=A,DCB=(«ECFH=F6A,LRECL=12lt6LKSI2E=1089) 
//SYSUTl OD UNIT=SYSCa,SPAC&=(TRK, ( 12,5n 
//SYSUT2 DO UNIT=SYSDA,SPACE={TRK»C12,5)1 
//SYSUTB DO UNIT=SYSDAtSPACE=(TRK,(9,5>) 

//SYSUT4 DO UNIT=SYS0A,SPAC6=(TRK,(6,5)) 

//SYSLIN DD OSNAMe=SLOADS£TfDlSP={MOD,PASSl,UNIT=SYSOA, 

// SPACE={400,(50,10)),0CB=(RECFM=FB,LRECL=8«,BLKS1ZE=4001 1/71 

//LKED EXEC PGM=A TTIEWL , PARK-• XREF , LI ST ,LeT • ,CGiVD= ( 5, LT, COB 1 , 

// REGION=128K 

//SYSLIN DO DSNAMt=CLOADSET,OISPi: (OLD,DELETE) 

// DD D0NAME=SYSIN 

//SYSLMOD DD OSN=LGODaTA(RUN),DISP=(NEW,PASS), 

// W4lT=SYSDA,SPACE=tTRK,i9,,l) ) 

//SYSLIB DD OSN=SYS2.C0B0L4*LIB,0ISP=SHR 
//SYSUTl DD UNIT=SYS0A,SPACE=(TRK,(14,5)) 

//SYSPRINT DD SYSDUT=A 

5. REFERENCE 

IBM ANS COBOL version 4 Programmers' Guide, SC28-6456. 
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CQB4CLGANS COBOL COMPILE, LINKAGE EDIT, AND EXECUTE 

1. GENERAL 

C0B4clG is a three-step catalogued procedure to compile, linkage 
edit, and execute an ANS COBOL source program. 

2. USING C0B4CLG 

2.1 C0B4CLG may be invoked by an EXEC statement. 

// EXEC C0B^LG 

2.2 The following DD statement must be added to the procedure. 

//C0B.SYSIN DD * 

COBOL source deck 
or 

//C0B.SYSIN DD (appropriate parameters defining 
a source input data set) 

2.3 In order to supply additional input to the linkage editor, the 
following DD statement may be added. 

//LKED .SYSIN DD (appropriate parameters) 

This statement must follow all //C0B. DD statements. 

2.4 A CPU time limit of 10 minutes is assumed for the execution step. If 
additional time is needed, the TIME parameter may be coded on the EXEC 

statement. 


// EXEC C0B4CLG,TIME.G0=12 

2.5 Additional data sets required by the source program may be specified 
on DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //C0B. DD statements, all 
//LKED. DD statements, and any overriding //G0. DD statements. 


(Continued on Next Page) 
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C0B4CLG - ANS COBOL COMPILE, LINKAGE EDIT, AND EXECUTE (CONT.) 




3. CATALOGUED PROCEDURE LISTING 



HEKBER NAME COB4CLG 
//CQB4CLG PROC LINES=55 

//COB EXEC PGM=lKFCBLOa,PAHM=''LINECNT=&LINES* iREG-ION=128K 

//STEPLIB DD DSN=SYS2.C060L4.LINK,DISP=SHR 

//SYSPRINT DO SYS0UT=A,DCB=(RECFM=FBA,LRECL=121.BLKSIZE=1089) 
//SYSUDUMP DC SYSOUT=A 

//SYSUTl DO UN1T = SYSDA,SPACE={TRK, {12,5 0 
//SYSUT2 00 UNiT=SYSOA,SPACE=(TRK,(12,5J) 

//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(9,5)) 

//SYSUT4 DD UMT=SYSDA,SPACE = (Tr<Kv(6,5) ) 

//SYSLIN DD OSN=GLOADSET,OISP={MOD,PASS),UNIT=SYSDA, 

// SPACE = (400, (50,10) ) ,DCB=(RECFM=FB,LRECL=80,BLKSIZE=^^00 > 

//LKED EXEC EGM^^ATTI E WL , PARM='KREF , LI ST , LET » , COND=( 5 , LT , COB ) , 

// KEGION=128K 

//SYSLIN DD DSN=&LUADSET,DISP=(OLO,DELETEJ 
// DD DDNAME^SYSIN 

//SYSLMOD DD OSN=&GODATA(RUN),OISP=(NEW,PASS),UNIT=SYSOA, 

// SPACE=(TRK, (9, , 1) ) 

//SYSLIB DD 0SN-SYS2.C0B0L4.LIB,DISP=SHR 

//SYSUTl DD U^iIT=(SYSDA,SEP={SYSLIN,SYSLMOD) ),SPAC£«(TRK, (14,5)) 
//SYSPRINT DD SYSQUT=A,SPACE=(TRK,(5,5)) 

//GO EXEC PGM=*.LKED.SYSLMOD,CONO=((5,LT,COB),(5,LT,LKeD)),TIME=10 
//SYSUDUMP DD SYSOUT=A 

//SYSOUT DD SYSOUT=A,DCB={RECFM=FBA,LRECL=120,bLKSI2E=120i 
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4. REFERENCE 

IBM ANS COBOL version 4 Programmers' Guide, SC28-6456 
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DASORT ~ DIRECT ACCESS UTILITY SORT 



1. GENERAL 

DASORT is a cataloged procedure which facilitates use of Syncsort III, 
a sort program with direct access devices designated for sort 
work media. The user may vary the unit of work space, the amount 
of work space, the region and the direct access device type by 
supplying values for a set of symbolic parameters. If the default 
values are accepted, the procedure will supply a region of 6OK and 
6 cylinders of 3330 work space. 

2. SYMBOLIC PARAMETERS 

SPACE - This is used to designate the unit of space to be allocated. 
It may be TRK or CYL. The default is CYL. 

AMT - This is the number of units of space to be allocated for 
each of the six sort work areas. The default is 1. 

REG - This is used to supply a value for the region parameter 

for the step. The default is 60 to yield a region of 60K. 

UNIT - This is used to designate the sort work device type. The 
default is DISK. 

SEC - This is the number of upits of secondary space allocation. 
The default is 1, 

3. USING DASORT 

The procedure is invoked with an EXEC statement which may include the 
symbolic parameters described in paragraph 2. The user must provide 
DD statements describing input under the ddname SORTIN, the output 
file under the ddname SORTOUT, and the sort control card input under the 
ddname SYSIN. 

If EXEC DAS0RT,SPACE=xxx,AMT=yyy,REG=zzz 
//S0RTIN DD input file parameters 
//S0RT0UT DD output file parameters 
//SYSIN DD * 

sort control statement 

4. EXAMPLES OF USE 

4.1 Using default values: 

// EXEC DAS0RT 

//S0RTIN DDDSN«&TESTDATA,DISP=(0LD,DELETE) 

//S0RT0UT DD DSN=&S0RTDATA,DISP=(,PASS),UN1T=DISK, 

// DCB«(RECFM«FB,LRECL«50,BLKS1ZE“1000),SPACE*(CYL,(4,1)) 

//SYSIN DD * 

S0RT FIELDS*(32,8,CH,A),SIZE*E15000 
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DASORT - DIRECT ACCESS UTILITY SORT (CONT.) 


4.2 A small sort; (Note: minimum AMT when SPACE=TRK is 5.) 

// EXEC DAS0RT,SPACE=TRK,AMT=5 
//S0RTIN DD input file description 

//S0RT0UT DD output file description 
//SYSIN DD * 

S0RT FIELDS*(14,10,CH,A),SIZE»E500 

4.3 A moderately large sort: 

// EXEC DAS0RT,SPACE=CYL,AMr=4,REG«9O 
//S0RTIN DD input file description 

//S0RT0UT DD output file description 
//SYSIN DD * 

S0RT FIELDS=(22,6,CH,A),SIZE=E75000 


5. CATALOGED PROCEDURE LISTING 


MEMEER NAME. DASORT 

n\P. SORT PROC 5.Pm;E = CYL« AMT-l UNI T-01 S!< » S EC==i 5--2 5-76 

//SORT EXEC PGM-S.DKT ; PARM= • HSG=AP j t. IS T, C0RE=MAX* »REGI QNi=£REG.K 
//5URTLIB DO DSN-SYS1.SORTL1B,0ISP 
//SYSOUT DO sysf-'Ln=A 
//SORTPRNT DD SYSOUT=A 

//SORTWKOl DD UNI T:i£ UNIT , S PAC E= ( £ S P AC E » ( GAMT ♦ fcS EC ), RL SE ) 

//S0RTWK02 DD UN I T = £UMT , SP AC E-( BSP mC E , f CA MT , £S EC ) t RL SE ) 

//SQRTWK03 DD UNIT=£UNIT,SPACE=(PmC t,(CAMTt£SEC)»RLSE) 

//SDKTWK04 DO UNIT = SUNIT t S P AC E=-1 £S P ACE , < 6A NT , BSEC ), RL SE ) 

/ySORTWKOB DO UNI T= GUN IT iSPACE=:( CS PACE » {tAMT , GS EC ), RL £E ) 

//S0RTWK06 DD UNIT=£UNIT ,£PaCE= f tS PACE, { S.AMT , tSEC ) tRLSE ) 

6. REFERENCE 
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6.1 Syncsort III Prograntmers Guide', Whitlow Computer Systems, Inc. 

6.2 Division 3, Chapter 2, Section 2, SORTSPAC 

6.3 Division 3, Chapter 2, Section 3, SORT, SYNCSORT III 
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FORTGC/FORTHC - FORTRAN COMPILE 


1. GENERAL 

FORTGC and FORTHC are one-step catalogued procedures to compile FORTRAN-G 
or FORTRAN-H source programs. The procedures do not normally produce an 
object module. 

2. USING FORTGC or FORTHC 

2.1 The procedures may be invoked be an EXEC statement. 

// EXEC P0RTGC or // EXEC FQfRTHC 

2.2 The following DD statement must be added to the procedures. 

//F0RT.SYSIN DD * 

(FORTRAN source deck) 

' 91. '' 

//F0RT.SYSIN DD (appropriate parameters defining a 

source input data set) 

3. CATALOGUED PROCEDURE LISTINGS 
3.1 FORTGC 


MEMBER NAME FORTGC 

//♦ ALIAS NAME FOR FORTGC IS FORTEC. 

//FORT EXEC PGM=IEYFORT,REGIQN«100K,DPRTY»2 

//SYSPRINT 00 SYSOUT«A,OCB«(R£CFM*FBA,LRECL«120,BLKSI2E* 

//syslin dp OSNAME=&LOACSET,DISP=(MOO,PASS),UNIT*SYSDA, 
// SPACE®(TRK,(5,21) 

3.2 FORTHC 

y 

MEMBER NAME FORTHC 

//FORT EXEC P6M=I£KAA00,REGION®l50K 
//SYSPRINT DD SYS0Ut=A 
//SYSPUNCH DO SYSOUT®P 

//SYSLIN DO OSNAME=CLOADSET,UNIT®SYSSQtOISP»(MCDfPASS)« 
// SPACE®1400,1200,50),RLSE) 

//SYSUTl DO UN IT=SYSDA,SPACE=(TRK,(15,8) )/ 

//SYSUT2 00 UNIT=SYSDA,SPACE=(TRK,(3,3)) 

4. REFERENCE 

IBM 360 OS FORTRAN iV Programmers Guide, GC28-6817 
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FORTGCL/FORTHCL - FORTRAN COMPILE AND LINKAGE EDIT 


1. GENERAL 

FORTGCL and FORTHCL are two-step cataloged procedures to compile and 
linkage edit FORTRAN-G or FORTRAN-H source programs. Programmers will 
generally use these procedures when they wish to retain a load module 
in the load library specified by the SYSLMOD statement in the linkage 
edit step. 

2. USINGFFORTGCL or.FORTHCL 

2.1 The procedures may be invoked with an EXEC statement coded: 

// EXEC F0RTGCL or // EXEC F0RTHCL 

2.2 The following DD statements must be added to the procedures. 

2.21 A F0RT.SYSIN DD statement defining the input. 

//F0RT.SYSIN DD * 

(FORTRAN source deck) 
or 

//F0RT.SYSIN DD (parameters defining a source input 

data set) 

2.22 A LKED.SYSLM0D DD statement to define a storage place for the 
load module. 

//LKED.SYSLM0D DD (parameters describing the load module PDS) 

2.3 The following DD statement may be added to supply additional input 
to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //F0RT. DD statements, 

3. EXAMPLE OF USE 

// EXEC F0RTGCL ^ // EXEC F0|tTHCL 

//F0RT.SYSIN DD * 

F0RTRAN source deck 

//LKED.SYSLM0D DD DSN=DEV.L0ADLO(TESTM0D) ,DISPOSER 
/* 


(Continued on Next Page) 
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FORTGCL/FORTHCL - FORTRAN COMPILE AND LINKAGE EDIT (CONT.) 



4. CATALOGED PROCEDURE LISTINGS 

4.1 FORTGCL 


MEMBER NAME FORTGCL 

//♦ ALIAS NAME FOR FORTGCL IS FORTECL. 

//FORT EXEC PGM=IEYFORT,REGION=IOOK,DPRTY*2 

//SYSPRINT DO SYSOUT=A,DC6=(RECFM=FBA,LRECL*120,BLKSI2E«1080) 0768 
//SYSLIN DO OSN=SLOADSETtDISP=(MOD,PASSI,UNIT=SYSDA, 

// SPACE=(400,(5Q,10)),DCB={R£CFM=FB,LRECL»80,BIKSIZE=400) 

//LKEO EXEC PGM=ATTIEWL,PARM=»XREF,LET,LIST*,REGi0N=90K, 

// C0N0=I4,LT,F0RT > 

//SYSLIB DO DSNAMe=SYSl.FORTLIB,OISPaSHR 

//SYSPRINT DO SYS0UT=A 

//SYSUTl 00 UNIT=SYSDA.SPACE=(TRK,(4,2),RLSE) 

//SYSLIN DO DSNAME=£LQADSET,OISP-IQLO,DELETE) 

// DO DDNAME=SYSIN 
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4.2 FORTHCL 



MEMBER NAME FORTHCL 

//FORT EXEC PGM=IEKAA00*REGION=150K 

//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD SYSOUT=P 

//SYSLIN DD DSNAM£=CLOADSET,UNIT«SYSSQiDISP-(MOO.PASS)t 
// SPACE*(400,(200.50),RLSE) 

//SYSUTl DO UNIT*SYS0A,SPACE»(TRK,(15,8)I 

//.SYSUT2 DD UNIT = SYSDA,SPACE*(TRK,(3,3)) 

//LKED EXEC PGM*ATTIEWL.REGIDN»90K,PARM**MAP,LET,LIST•. 

// C0ND=(4,LT,Ft]RT) 

//SYSLIB DO 0SNAME*SYS1.F0RTLIB,DISP»SHR 
//SYSPRINT DD SYSOUT=A 

//SYSLIN DO DSNAME=£LOADSET,DlSP=(DLO,DELETE) 

// DD DONAME=SYSIN 

//SYSUTl DD DSN*£SYSUT1,UNIT*SYS0A,SPACE*{TRK,(14,5)) 


5. REFERENCE 


IBM 360 OS FORTRAN IV Programmers Guide, GC28-6817 
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FORTGCLG/FORTHCLG - FORTRAN COMPILE, LINKAGE EDIT, AND EXECUTE 


1. GENERAL 

FORTGCLG and FORTHCLG are three-step cataloged procedures to compile, linkage 
edit, and execute FORTRAN-G or FORTRAN-H source programs. 

2. USING FORTGCLG or FORTHCLG 

2.1 The procedures may be invoked by an EXEC statement. 

7/ EXEC F0RTGCLG or // EXEC F0RTHCLG 

2.2 The following DD statement must be added to the procedure. 

//F0RT.SYSIN DD * 

(FORTRAN source deck) 
or 

//F0RT.SYSIN DD (appropriate parameters defining 

a source input data set) 

2.3 In order to supply additional input to the linkage editor, the 
following DD statement may be added. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //F0RT. DD statements. 

2.4 Additional data sets required by the source program may be specified 
on DD statements. 

/7G0.ddname DD (appropriate parameters) 

These statements must follow all //F0RT. DD statements, all 
//LKED. DD statements, and any overriding //G0. DD statements. 


3. CATALOGED PROCEDURE LISTING 
3.1 FORTGCLG 


MEMBER NAME FORTGCLG 

//* ALIAS NAME FOR FORTGCLG IS FORTECLG. 

//FORT EXEC PGM»lEYFORTfREGION«lOOKtOPRTY»2 

//SYSPRINT DO SYSOUT=A,DCB={RECFM=FBA.LRECL=120tBLKSIZE=L080) 0568 
//SYSLIN DD OSNAME=£LOAOSET,DISP=(MOD,PASS>,UNIT*SYSOA, 

// SPAC£=UO0,C5O,lO) J,OCB=(RECFM=F8,LRECL=80,BLKSIZE=400) 

//LKED EXEC PGM=IEWL,PARM=•XREF,LI ST,LET•,C0N0*(4,LT,FORT),REG1CN=90K 
//SYSLIB DD DSNAME*SYSl.FORTLIB,DISP=SHR 

//SYSLMOD DO DSNAME=tGOSET(MA IN ) ,DISP=(NEW,PASS)tUN IT=SYSDA, 

// SPACE=(TRK, (4,2#l) ) 

//SYSPRINT DD SYS0UT=A 

//SYSUTl DD UNIT=SYSDA,SPACE=ITRK,(4,2)*RLSE) 

//SYSLIN 00 DSNAME=tLOAOSET,DISP=(OLD.DELETE! 

// DO DONAME=SYSIN 

//GO EXEC PGM=*.LKED. SYSLMOD, CQND=((4,LT»F0RT>,I4,LT»LKED)),DPRTY=2 
//FT05F001 DD DDNAMe=SYSIN 

//FTC6F0C1 DD SYSOUT^A.DCB=(R£CFM*FBA,LRECL*133,BLKSIZE*1330) 
//FT07F001 00 SYSOUT=P 
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FORTGCLG/FORTHCLG - FORTRAN COMPILE, LINKAGE EDIT, AND EXECUTE (CQNT.) 



3. CATALOGUED PROCEDURE LISTING (Cont*) 
3.2 FORTHCLG 



MEMBER NAME FORTHCLG 

//FORT EXEC PGM=1EKAAOO,REGION»15CK 
//SYSPRINT 00 SYSOUT»A 
//SYSPUNCH DO SYSOUT=P 

//SYSLIN DO DSNAME=&LOADSET,UNIT=SYSSQ,DISP*IMCD,PASS), 

// SPACE*(AOG,(200f50),RLSE) 

//SYSUTl DO UNIT=SYSOA,SPACE={TRK,(15t8n 

//SYSUT2 DO UNIT=SYSOA,SPACE=(TRK,(3,3)J 

//LKEO EXEC PGM=IEWL,REGION*90K,PARM=(MAP,LET,LIST)rCONO*(4,LT,FORTJ 
//SYSLIB DO DSNAME=SYS1.F0RTLIB,DISP=SHR 
//SYSPRINT DO SYSOUT=A 

//SYSLMQD 00 DSNAME=£GOSET(MAIN),UNIT=SYSDA,OISP={,PASS), 

// SPACE=(TRK,(9,4,1)J 

//SYSUTl DO 0SN=CSYSUTl,UNIT*SYSDA,SPACE=(TRK,(14,5)J,SEP*SYSLMOD 
//SYSLIN DO OSNAME=SLOADSET,OISP*(OLO,DELETE) 

// DO DDNAME=SYSIN 

//GO EXEC PGM*<c.LKED.SYSLMOD,CONO=( (4,LT,F0RT),(4,LT,LKED)I 
//FTOSFOOl 00 DUNAME*SYS1N . 

//FTC6F001 DO SYSOUT=A 
//FT07F001 DO SYSOUT=P 
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4. REFERENCE 

IBM 360 OS FORTRAN IV Programmers Guide, GC28-6817 
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1. GENERAL 
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FORTLG is a two step cataloged procedure to linkage edit an object or 
load module to produce a load module and execute it. The linkage edit 
step provides a reference to the automatic call library SYSl.FORTLIB, 
This will be effective for any FORTRAN compiler supported by the Data 
Center. 

2. USING FORTLG 

2.1 FORTLG may be invoked by an EXEC statement. 

// EXEC F0RTLG 

2.2 The following DD statements may be added to supply additional input to 
the linkage editor. 

//LKED.SYSIN DD (parameters describing linkage editor control input 

and/or object module input) 
or 

//LKED.ddname DD (parameters describing an additional call library) 

2.3 Additional d^ta sets required by the users program may be specified on 
DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all / /LKED. DD statements. 

3. CATALOGED PROCEDURE LISTING 

MEMBER NAME FORTLG 

//* ALIAS NAMES FOR FORTGLG ARE FORTELG AND FORTLG 

//LKEO EXEC PGM=IEWL,PARM=‘XREFfLIST,LET*,REGI0N=90K BJI 8/72 

//SYSLI8 DO DSNAME=SYSl.FGRTLIBfDISP=SHR 

//SYSLMOD DD 0SNAME=SGOSET(MAIN ) ,DISP*(NEW,PASS)#UNIT=SYS0At 
// SPACE=(TRK,(4,2,1)) 

//SYSPRINT DD SYS0UT=A 

//SY.SUT1 DD UNIT = SYS0A,SPACE={TRK,(4,2) ,RLSE) 

//SYSLIN DD DCNAME=SYSIN 

//GO EXEC PGM*#.LKED.SYSLMOD,COND*(4,LT,LKED),DPRTY-2 
//FT05F001 DO OONAME*SYSIN 

//FT06F001 DO SYS0UT=A,DCB*(RECFM*UA,BLKSIZE*136) 

//FT07F001 DD SYSOUT=P 

4. REFERENCE 

IBM 360 OS FORTRAN IV Programmers Guide, GC28-6817 
IBM 360 OS Linkage Editor and Loader, GC28-6538 
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LIBP - LIBRARIAN, PDS OUTPUT 

1. GENERAL 

This cataloged procedure invokes the Applied Data Research program 
LIBRARIN. If the EXEC option is specified, output is directed to a 
partitioned data set named fio&PDS under the member name of the selected 
module. This permits the programmer to work with several modules in 
one execution of Librarian and yet maintain individual accessibility 
to output modules- Successive calls of the procedure within the job should 
not be necessary unless different masters are being referenced, however, 
should this be required, the same PDS, 6t6iPDS, will be used for output. 

2. SYMBOLIC PARAMETERS 

MASTER This parameter supplies the dsname of the Librarian master file. 

CYL This parameter controls the primary space allocation of the 

output file. It defaults to 1 to yield 1 cylinder. The file 
is a partitioned data set- 

3. USING LIBP 

3.1 LIBP is invoked with an EXEC statement. 

// EXEC LIBP,MASTER='xxxxxx' 

where xxxxxx is any valid dsname of a Librarian type master file- 

3.2 The programmer places input statements, both Librarian control and 
data, after the EXEC card. If JCL statements are being stored, input 
must be preceded by //SYSIN DD DATA and followed by a /* statementi 


4. EXAMPLE 

In this example two modules are selected for compilation. 

// EXEC LIBP,MASTER='DEV.S0URCE' 

-0PT 

-SEL PR0GX,ZFLG,EXEC 
-EM0D 

-SEL PR0GY,MNLK,EXEC 

-DEL 50,100 

-EM0D 

-END 

// EXEC C0BUC 

/ / SYS IN DD DSN=&6cPDS (PR0GX) , DISP= (0LD, PASS ) 

// EXEC C0BUC 

//SYSIN DD DSNi=6c&PDS(PR0GY),DISP=(0LD,DELETE) 
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LIBP - LIBRARIAN, PDS OUTPUT (CONT. ) 





5. CATALOGED PROCEDURE LISTING 


//Liep PROC MASTER=ERRORfCYL=l 

//LIBP EXEC PGMs=LIBRARIN»PARMa»NRJS,NJTA»tREGI0Ns60K 
//master do DSN=tMASTER,DISPaSHR 

//INDEX DO SYSOUT=A,DCBa(RECFM=FBA,LRECLal33,BLKSIZEe93l) 

//list do SYS0UTaA,DCB=(RECFMaFBA»LRECLal33*BLKSlZEa931) 

y' //SYSPRINT DD SYSOUT=A,DCB= ( RLCFM=FBA» LRECL® 133,BLKSIZ £^931) 

//0SJ08 DO DSN=tPDS,DCB=BLKSlZEa960,UNIT=DISK,DISpa(M0DtPASS)» 
// SPACEa(CYL,<GCYL,lt^)) 

//BACKUP DD DUMMY 

//SYSPUNCH DD SYS0UT=P,DCB=BLKSIZEa80 


OCOOOlOO 

00000200 

00000300 

OOOOOAOO 

OOOOOBOO 

COC0C6OO 

00000700 

oooooaoo 

00000900 
00001000 


6. REFERENCE 

6.1 Applied Data Research, The Librarian, User Reference Manual, 

6.2 Division 3, Chapter 2, Section 3, LIBRARIAN. 
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LIBS - LIBRARIAN, SEQUENTIAL OUTPUT 


1. GENERAL 

This cataloged procedure invokes the Applied Data Research program, 
LIBRARIN. If the EXEC or UTILITY option is specified, the output is 
directed to a sequential file named &6tSEQ. Successive calls of the 
procedure within the job should not be necessary unless different masters 
are being referenced, however, should this be required, the same 
sequential data set, 6t6iSEQ, will be used for output with a disposition 
of MOD- 

2. SYMBOLIC PARAMETERS 

MASTER This parameter supplies the dsname of the Librarian master file. 

CYL This parameter controls the primary space allocation of the 

output file. It defaults to 1 to yield 1 cylinder. The 
file is a sequential data set. 

3. USING LIBS 

3.1 LIBS is invoked with an EXEC statement. 

// EXEC LIBS,MASTER='xxxxxx» | 

where xxxxxx is any valid dsname of a Librarian type master file. 

3.2 The programmer places input statements, both Librarian control and data, 
after the EXEC card. If JCL statements are being stored, input must be 
preceded by //SYSIN DD DATA and followed by a /* statement. 

4. EXAMPLE 

In this example a single module is selected and updated for compilation. 

// EXEC LIBS,MASTER='PRD5.S0URCE' 

-0PT 

-SEL PR0GZ,ZXFL,EXEC,TEMP 
-REP 60 

C0B0L statement 
-EM0D 
-END 

// EXEC C0BUC 

//SYSIN DD DSN=6c6cSEQ,DISP=(0LD,DELETE) 

/* 


(Continued on next page) 
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LIBS - LIBRARIAN, SEQUENTIAL OUTPUT (CONT.) 


5. CATALOGED PROCEDURE LISTING 


//LIBS PROC MASTER=ERROR,CYL=l 

//LIBS EXEC PGM=L1BRARIN,PARM=»NRJS,NJIASREGI0N*60X 
//MASTER no DSN=tMASTERfDISP*SHR 

//SYSPftiNT DO SYSOUT=A,DCB=(RECFM=FBA,LRECLk133»BLKSIZE*931J 

//LIST OD SYSOUT = A,DCB=(RECFH=FBA,LftECL = 133,BLKSlZEs=931) 

//INDEX DO SYS0UT=A,0Cfa=(RECFM-FBA,LRECL«133tBLKSIZE»=931) 

//OSJOB DD DSN=tSEQ,DC6=0LKSlZE=96OfUNIT-DISKt01SP«<MOD»PASS)f 
// SPACE=(CYL»(&CYL,1)) 

//BACKUP DD DUMMY 

//SYSPUImCH DD SYS0UT-P,DCB = BLKSIZE=80 


OOOOOlOO 

O00C0200 

00000300 

O00CC4O0 

ooooosoo 

C0000600 

00000700 

00000800 

00000900 

00001000 


6. REFERENCE 

6.1 Applied Data- Research, The Librarian, User Reference Manual* 

6.2 Division 3, Chapter 2, Section 3, LIBRARIAN. 
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LIBU - LIBRARIAN UTILITY PROCEDURE 


1. GENERAL 

This is a two-step Librarian cataloged procedure designed for 
transferring data between Librarian masters. The output, resulting 
from the UTILITY option, of the first step is used as input to the 
second step. The output of the second step is a partitioned data 
set named 6tPDS. 
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2. SYMBOLIC PARAMETERS 


MASTERl 

CYLl 

MASTER2 

CYL2 


3. USING LIBU 


This parameter supplies the dsname of the 
Librarian master referenced in the first step 

This parameter controls the primary space 
allocation of the output file of the first 
Step. It defaults to 1 to yield 1 cylinder. 
The file is a sequential data set. 

The parameter supplies the dsname of the 
Librarian master referenced in the second 
step. 

This parameter controls the primary space 
allocation of the output file of the second 
step. It defaults to 1 to yield 1 cylinder. 
The file is a partitioned data Set. 


3.1 The procedure is invoked with an EXEC statement. 


// EXEC LIBU,MASTERl='xxxxxx',MASTER2='yyyyyy' 

where xxxxxx and yyyyyy are valid dsnames of Librarian type 
master files. 


3.2 The following DD statement must be added to the procedure: 


//UTIL.SYSIN DD * 

Librarian control statements and data 

/* 


(Continued on next page) 
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Lieu - LIBRARIAN UTILITY PROCEDURE (CONT.) 


4. EXAMPLE 

The following is a simple transfer of two source modules from one 
master to another. 

//■EXEC LIBU,MASTER1='DEV.LIBRl',MASTER2:^'PRD5.S0URGE* 


//UTIL. SYS IN DD ’V 
-.0PT UTILITY 

-0PT EXEC * 

-ADD PR0GX,SEQ=C0B0L * 

-INC PR0GX 

-EM0D * 

-ADD PR0GY,SEQ=C0B0L * 

-INC PR0GY 

-EM0D * 

-END * 

h 

//EXEC C0BUC 


//SYSIN DD DSN=6c&PDS(PR0GX),DISP=(0LD,PASS) 

// EXEC C0BUC 

//SYSIN DD DSN=&6tPDS(PR0GY),DISP=(0LD,DELETE) 

The -INC statements will be replaced by Librarian with the source 
Statements of PROGX and PROGY. These source statements along with the 
starred (*) statements will form input to the second Librarian step 
and result in addition of the programs to the second master. 

5- CATALOGED PROCEDURE LISTING 1 

4 //LIBU PROC MASTERl-rRRORtMASTtR2==FRROR,CYLl = l»CYL2»=l 
//UTIL EXEC PGM-L IBRARlN,PAkM=s»NRJS,NJTA* ♦REG10N*60K 
//KASTLK DD DSN-tMASlEKl»DISP = r.HK 

//SYSPRINT DD S YSOUl =A t DCR=-( RE CFM = EBA ♦ LRECL^l 33, BLKS 12 E*93 1 ) 

//LlSl DD SYS0Ul=-AtDCB=(RECFM=FBA,LRECL = 133,BLKSlZE=931> 

//INDEX DD SYDDUT-A,DCh=(KECFM=FBA,LRECL=133,0LKSIZE=93l> 

//OSJOB DD DSN=tUTU,DCb-l-LKSUF=960tUNlT-DlSK,DISPs^(,PASS), 

// SPACF=(CYLf U.CYL1 ♦! ) ) 

//LIBP EXEC PGH-lIBRAR1N,PaRM='NRJS»NJTA*,REGI 0N--60KfC0ND»(0tNE»UTIL) 

//MASTER DD DSN-C.MASTER2,DISP = SHR 

//SYSPRINT DD SYS0UT=A,DCB={RECFM=FBA,LRFCL=133tBLKSIZe-931) 

//LIST DD SYS0UT=A,DCE=(KECFM=FBA,LRFCL=133,BLKSIZE=931) 

//INDEX DD SYSLUT=A,DCB=--(RECFM=FBA,LRECL=133»BLKSIZE=931) 

//USJUB DD DSN=:tPDS»DCc. = ljLKSIZ£=y60tUNIT=DISKf0ISPs(M0D,PASS)» 

// SPACf=(CYL,lSCYL2,l»5)> 

//SYSIN DD DSN=tUTIL»01SP={nLr.),DELETE) 

//BACKUP OD DUMMY •. 

//SYSPUNCH 00 SYSDUT=P,DCB=BLKSIZE=80 


6. REFERENCE 

6.1 Applied Data Research, The Librarian, User Reference Manual. 

6.2 Division 3, Chapter 2, Section 3, LIBRARIAN. 
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LIST ~ LISTING VTQC, PDS DIRECTORIES, CATALOGS 


1. GENERAL 

LIST is a cataloged procedure which facilitates use of the IBM Utility 
Program lEHLIST for listing catalogs, partitioned data set directories, or 
volume table of contents of the system residence volume. LIST provides 
DD statements for SYSPRINT and the system residence volume. 

2. USING LIST 

2.1 The LIST procedure is invoked with an EXEC statement coded: 

// EXEC LIST 

2.2 The user must include a SYSIN DD statement and appropriate lEHLIST 
control statements. 

//SYSIN DD * 
control cards 

3. EXAMPLE OF USE 

7/ EXEC LIST 
//SYSIN DD * 

LISTCTLG 

/* 

4. CATALOGED PROCEDURE LISTING 

MEMBER NAME LIST 

//LIST EXEC PGM^IEHLIST.REGION^AAK 
//DOSRV 00 V0LUME=REF*SYS1*SVCLIB,DISP«0L0 
//SYSPRINT 00 SYSQUT=A 


5. REFERENCE 

IBM OS Utilities GC28-6586, lEHLIST 


00020000 

00040000 

00060000 
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LISTDISK ~ LISTING CONTENTS OF A DIRECT ACCESS VOLUME AND 
ATTRIBUTES OF DIRECT ACCESS DATA SETS 


1. GENERAL 

LISTDISK is a cataloged procedure which facilitates use of a Western Electri 
Utility Program,SLIST,to list contents of a direct access volume or to 
provide information about the attributes of all or selected disk data sets 
on a selected direct access volume. 

2. SYMBOLIC PARAMETERS 

LISTDISK requires a VOLID parameter which supplies the volume serial number 
of the disk pack to be selected. 

3. USING LISTDISK 

3.1 The LISTDISK procedure is invoked with an EXEC statement which includes 
the symbolic parameter, VOLID. 

// EXEC LISTDISK,V0LID=serial 

3.2 A group of data sets may be selected by specifying a four'character PARM 
value representing the first 4 characters of the DSNAME^s to be listed. 

//EXEC LISTDISK,V0LID=serial,PARM=index 

4. EXAMPLE OF USE 

Example 1: // EXEC LISTDISK,V0LiD=ST0R31 

Result: All data sets on ST0R31 will be listed 

Example 2: // EXEC LISTDISK,V0LID=SYSRES,PARM=SYS1 

Result: All data sets on a volume identified as SYSRES and having 

SYSl as the first 4 characters of DSNAME will be listed. 

5. CATALOGED PROCEDURE LISTING 

MEMBER NAME LISTDISK 
//lEFPROC EXEC PGM=SLIST,ReGrON=30K 

//♦ OPERATOR START = 'S LISTDISK,,VOLID* VOLIO*OISK PACK NAME 
//SYSPRINT DD SYSOUT=A 8JI 9/72 

//DDl OD DDNAME=IEFRDER 

//lEFRDER OD UNIT-SYSOA,DISP=0L0*VOLaSER=CVOLID 

6. REFERENCE 

Division 3, Chapter 2, Section 2, SLIST Utility Program 
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LISTOUT - LISTING A MEMBER OF A CARD IMAGE PARTITIONED DATA SET 


1. GENERAL 
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LISTOUT is a cataloged procedure which invokes the Western Electric Utility 
Program WECOPY to list a member of a card image partitioned data set. 

The library must be a cataloged data set. 

2. SYMBOLIC PARAMETERS 

LISTOUT requires two symbolic parameters and may have two optional parameters 
which are: 


PDS, a required parameter, supplies the library name. Enclose 
in apostrophes if the name is indexed (contains periods). 

MEMBER, a required parameter, supplies the name of the member to 
be printed. 

MAX, an optional parameter, supplies to the maximum number of 
records to be printed. 

SKIP, an optional parameter, supplies the maximum number of 
records to be skipped before printing begins. 

3. USING LISTOUT 


The LISTOUT procedure is invoked with an EXEC statement which includes the 
two required symbolic parameters, PDS and MEMBER, and the optional parameters 
MAX and SKIP, if used. 


// EXEC LIST0UT ,PDS= • library' ,MEMBER=prog, [^=nnir| , [sKIP=nnn 


4. EXAMPLE OF USE 


/ / EXEC LIST0UT, PDS=' SYSl .PR0CLIB' ,MEMBER= C0BUCLG 


5. SUGGESTED USE 


LISTOUT is recommended for listing procedure, control and "parmlib" members. 


6. CATALOGED PROCEDURE LISTING 


MEMBER NAME LISTOUT 
If PROC MAX=999StSKIP«0 

//LIST EXEC PGM=WECOPY,PARM=(EMAXfESKIP) 

//SYSPRINT 00 SYSaUT=A 

//SYSUTl 00 DSN=£PDS-C£MEMBER),DISP=SHR 
//SYSUT2 00 SYSaUT=A 


COOOOOiO 

00000020 

00000030 

00000040 

00000050 


7. REFERENCE 

Division 3, Chapter 2, Section 2, WECGPY Utility Program 
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LISTPDS - LISTING A PARTITIONED DATA SET 


1. GENERAL 

LISTPDS is a cataloged procedure which facilitates use of the IBM Utility 
Program lEBPTPCH for listing the content of all members of a partitioned 
data set. 

2. SYMBOLIC PARAMETER 

LISTPDS requires a DSN parameter which supplies the library name. The 
parameter must be enclosed in apostrophes if the name is indexed (contains 
periods). 

3. USING LISTPDS 

LISTPDS is invoked with an EXEC statement which includes the symbolic 
parameter, DSN. 

// EXEC LISTPDS,DSN='dataset* 

4. EXAMPLE OF USE 

// EXEC LISTPDS,DSN=’PRD7.PARMLIB‘ 

5. RESTRICTION 

The library must be cataloged and have LRECL=80. 

6. CATALOGED PROCEDURE LISTING 
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MEMBER NAME tISTPOS 

//lEFPROC EXEC PGM=lEBPTPCH,REGI0N*60K OOCOOlOO 
//SYSPRINT DD SYSOUT=A 00000200. 
//SYSUTl 00 0DNAME=IEFRDER 00000300 
//lEFRDER DD DSN^tDSN,0ISP=SHR 00000400 
/7SYSUT2 DD SY50UT=A G00005CO 
//SYSIN DD 0SN«SYSl.C0NTR0LaiSTP0S) ,DISP*SHR 00000600 


7. 


REFERENCE 


IBM OS Utilities GC28-.6586, lEBPTPCH 
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LKED - LINK EDIT AND PRODUCE A LOAD MODULE 




I 






1. GENERAL 

LKED is a one-step cataloged procedure that link edits an input data 
setj produces a load module, and passes the load module to another 
step ih the same job. 

2. USING LKED 

2.1 LKED may be invoked by an EXEC statement. 

// EXEC LKED 

2.2 The following DD statement must be added to the procedure. 
//LKED.SYSIN DD * 

(Object module deckCs) and/or control statements) 
or 

//LKED.SYSIN DD (appropriate parameters defining a source 

input data set) 


2.3 Reference to the automatic call library must be provided by the 

user through SYSLIB DD statements, e.g. SYSl.COBLIB, SYSl.FORTLIB, etc. 

//SYSLIB DD DSN=:SYSl.library,DISP=SHR 

2.4 Additional DD statements may be added to supply input to the linkage 
editor. 


//LKED.ddname DD (appropriate parameters) 

3. CATALOGED PROCEDURE LISTING 


0CO20000 

OOOAOOOC 

OG06C/000 

ODOaooOO 

OOlOOOOO 

XG0120000 

00140000 


4. REFERENCE 

IBM 360 OS Linkage Editor and Loader, GC28-6538 


MEMBfcR . NAME LKED 

//LKED EXEC PGH = ATTjeWL,PARM=»XRiE’F,LET,LIST* ,REGI0M = 90K 
//SYSPRINT DU SYSOUTi-A 
//SYSLIN DD DDNAHt=SYSiN 

//SYSLMDO DD D''-.N=--f.e0SET(G0J,SPACE=fTRK,{15,,in, 

// UNI 1 ^SYSDA, DISP^^f MOD,PASS) 

//SYSUTi DO •JN2T = (SYSDA,SEP:=rSYSLMOD,SYSLIN)), 

// SPACE=(TRK, {14,5) ) 
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LKEDG - LINK EDIT, PRODUCE A LOAD MODULE, AND EXECUTE 


1. GENERAL 

LKEDG is a two-step cataloged procedure that link edits an input data 
set» produces a load module, and executes that load module. 

2. USING LKEDG 

2.1 LKEDG may be invoked by an EXEC statement, 

// EXEC LKEDG 

2.2 The following DD statement must be added to the procedure. 

//LKED.SYSIN DD * 

(Object module decks and/or control statements) 
or 

//LKED.SYSIN DD (appropriate parameters defining a source 

input data set) 

2.3 Additional DD statements may be added to supply input to the linkage 
ediOirr. 

//LKED.ddname DD (appropriate parameters) 

2.4 Additional DD statements may be added for the GO step. 

//O0.ddname DD (appropriate parameters) 


3. CATALOGED PROCEDURE LISTING 


MEMBER LKE:D& 

//LK6D EXEC = I EWL,PARM= 'XR EF , ul ST , LE T, NC AL • , R EGI 0lSi=^90K 
//SVSPRINT DD SVSOUT^a 
//SYSL i'l. DD , DDNAi-''E = SYSIM 

//SYSLMDD DD DSN^aGOSETfGO),SPACE=(TRK,(15,,2)), 

// UNIT=SYSDA,DlSP-fMOO,PASS) 

//SYSUTl DD UNIT-{SYSDa,SEP=( 3YSLM0DtSYSLIN)1 , 

// SPAC E=(TRK, 114,5) ) 

//GO EXtX PGH-*.LKeD.SYSLM0D,CCMD=(4,Lr,LKED> 


BJI 8/72 0002.0000^ 

/ 00040000^ 

00C60CCi.> 

oeo&oooo 
00100000 
X00120000 
00140000 
CO160000 


4. REFERENCE 


360 OS Linkage Editor and Loader, GC28-6538 
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RENAMING. SCRATCHING 


1. GENERAL 

MOD is a cataloged procedure which facilitates use of 
the IBM Utility Program lEHPRGGM for scratching^ 
renaming, and performing catalog operations on 
direct access volumes. MOD provides DD statements for 
SYSPRINT and the resident catalog pack. 

2. USING MOD 

The MOD procedure is invoked with an EXEC statement, 
a DD statement defining the volume, and lEHPROGM 
control statements. 

// EXEC MOD 

//ddname DD UNIT-DISK, VOL«SER«——— ,DISP*SHR 
control statements 

3. EXAMPLE OF USE 

// EXEC MOD 

//DDl DD UNIT-DISK, VOL-SER-TEST05rDISP*SHR 
SCRATCH DSNAME-USERS.DATASET,VOL-3330-TEST05 

/* 

4. CATALOGED PROCEDURE LISTING 


MEMBER NAME MOO 

//MOD EXEC PGM=lEHPROGM,RE6I0N=44K 
//DOSRV DO V0L=REF=SYS1.SVCLIB,DISP*SHR 

//SYSPRINT DO SYS0UT=A,SPACE=ITRK,(5,5J) 69160-EWR 


5. REFERENCE 

IBM OS Utilities GC28-6586, lEHPROGM 


I 
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MOVE - COPYING DIRECT ACCESS FILES, CATALOGS, PDS MEMBERS 


1. GENERAL 

MOVE is a cataloged procedure which facilitates use of the IBM Utility 
Program lEHMOVE for performing disk to disk operations such as copying 
data sets or catalogs. MOVE provides DD statements for SYSPRINT and 
three disk packs. 

2. SYMBOLIC PARAMETERS 

MOVE requires two symbolic parameters and may have an optional parameter, 
which are: 

VOLl, a required parameter, supplies the source volume serial number. 
V0L2, a required parameter, supplies the receiving volume serial number. 
V0L3, an optional parameter, supplies a work volume serial number. 

The default is UTIL31, 

3. USING MOVE 

The MOVE procedure is invoked with an EXEC DD statement which includes 

the symbolic parameters, VOLl, V0L2, and optionally, V0L3, followed 
by lEHMOVE control statements. 

// EXEC M0VE,V0Ll=serial,V0L2=serialJv0L3=seriaiI 
control statements 

4. EXAMPLE OF USE 

// EXEC M0VE,V0L1=TESTO5,V0L2=TEST5O 

C0PY DSNAME=DEVO5.ABC.MASTR,FR0M=333O=:TESTO5,T0=333O=TEST5O 

/* 








5. PRECAUTION 

The user should be aware of the differences between a move operation and 
a copy operation. A move operation will result in the deletion of the 
source data set or library even though only selected members are moved 
while a copy operation leaves source data set intact. In addition, for 
cataloged data sets, a move operation updates the catalog to refer to the 
moved version (unless otherwise specified), while a copy operation 
leaves the catalog unchanged. COPY is the preferred method of data set 
transfer or member transfer. 
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MOVE - COPYING DIRECT ACCESS FILES, CATALOGS, 
_ PDS MEMBERS (CONT.> 


6. CATALOGED PROCEDURE LISTING 

MEMBER NAME MOVE 
// FROG V0L3=UTIL31 
//lEFPROC EXEC PGM=IEHMOVE 

//SYSPRINT DO SYSOUT=A,OCB«{RECFM»FB,LRECL»12ltBLKSIZE«960) 
//SYSUTl DO UNIT=SYSDA,DISP»OLD#VOL»SER=eVOL3 
//VOLl DO UNlT=SYSDA.DlSP»OLD»VOL»SER»CVOtl 
//VQL2 OD UNIT=SYS0A,DISP*QLDtV0LaSER«£V0L2 


7. REFERENCE 

IBM OS Utilities C28-6586, lEHMOVE 
Also see PLCPREP cataloged procedure. 
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Reason for reissue: As indicated and former paragraph 6 deleted 
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OPRPNCH - OBTAIN COPY OF CONSOLE JGL DECKS 


1. GENERAL 

OPRPNCH is a cataloged procedure which may be used to obtain a copy of 
JCL console decks that reside in PROD.JCLLIB and are accessed by the 
internal reader. 

2. USING OPRPNCH 

The OPRPNCH procedure is invoked with an EXEC statement coded: 

// EXEC 0PRPNCH,J0B=XXXXXXXX 

There must be one EXEC card for each job JCL deck desired^ 

3. ASP REQUIREMENTS 

The following ASP control card must be supplied by the user: 

//*MAIN CARDS=n 

where n represents the number of cards, in hundreds , to be punched. 

4. CATALOGED PROCEDURE LISTING 


//OPRPNCH PROC DSN=*PROD-JCLLIB» 

//PUNCHIT EXEC PGM=WECOPY 

//SYSPRINT OD SY$0UT«A 

V/SYSUTl DD DSN=£,DSN{ €,J08} ,0ISP»SHR 

//SYSUTP DO SYSOUT=P,0CB*iRECFM*F,LRECL*80,BLKSIZE*8O) 

5. REFERENCE 

Division 2, Chapter 5, Section 1 


Reason for Reissue: As indicated and reference to ASP SETUP card deleted. 
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PLCPREP - PREPARATION FOR UPDATE OF PRODUCTION LIBRARIES 


1. GENERAL 

PLCPREP is a cataloged procedure which allows the user to obtain a ’’copy" 
of a production library member, make modifications as needed, and test the up 
dated version without disturbing the production library. It invokes the IBM 
Utility Program lEBUPDTE. The data sets referenced must be cataloged. 

2. SYMBOLIC PARAMETER 

PLCPREP requires two symbolic parameters, "FROM" and "TO", which supply 
the library names. The parameters must be enclosed in apostrophes if 
the names are indexed (contain periods). 

3. USING PLCPREP 

3.1 The PLCPREP procedure is invoked with an EXEC statement which includes 
the symbolic parameters, FROM andTO. 

// EXEC PLCPREP,FR0M=’from.lib',T0='to.lib' 

where: FROM = the library from which the data is extracted and 

then updated and written on the data set specified by the 
TO = parameter. 

3.2 The user must include a SYSIN DD statement and appropriate lEBUPDTE 
control statements. 

//SYSIN DD DATA 

control statements 

4. EXAMPLE OF USE 

// EXEC PLCPREP,FR0M='PR0D.JCLLIB^T0='PLC.JCLLIB' 

//SYSIN DD DATA 
./ CHANGE NAME=TLSLIST,LiST=ALL 
user JCL changes 

/* 

5. RESTRICTION 


The libraries must be cataloged and have LRECL=80. 

6. SUGGESTED USE 




PLCPREP is recommended for updating libraries such as procedure, JCL or 
control libraries from card input. 
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PLCPREP 


~ PREPARATION FOR UPDATE OF PRODUCTION LIBRARIES (CONT. 



7. CATALOGED PROCEDURE LISTING 


MEMBER NAME PLCPREP 

//PLCPREP PROC 

//ALTER EXEC PGM-ATTUPDTE 

//SYSFRINT DD DSN=£&PASS,01SP = (,PASS)fUNIT=SYSOA,SPACE=(TRK*(10,5) ) 
//SYSUTl OD OSN=tFROM,OISP=SHR 
//SYSUT2 DD OSN=GTO,OISP=SHR 

//DISPLAY EXEC PGH=OPRLST.PARM=• PRODUCTION LIBRARY UPDATE UTILITY* 
//STEPLIB DD DSN=PR02.L0ADLIB,DISP=SHR 
//SYSIN DD OSN=&£PASS,DISP=(OLO,DELETE! 

//SYSOUT DD SYSOUT=A 


00000010 
00000020 
00000030 I 
00000040 
0000,0050 
00000060 
00000070 
00000080 
00000090 



8. REFERENCE 


IBM OS Utilities GC28-6586, lEBUPDTE 
CHGPDS Cataloged Procedure 
Division 2, Chapter 5, Section 2 
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1. GENERAL 

PLILFC is a one-step catalogued procedure to compile a PL/I source program 
It does not normally produce an object module. 

2. USING PLILFC 

2.1 PLILFC may be invoked by an EXEC statement. 

// EXEC PLILFC 

2.2 The following DD statement must be added to the procedure. 

//PLlL.SYSiN DD * 

(PL/I source deck) 
or 

//PLlL.SYSiN DD (appropriate parameters defining a 

source input data set) 

3* CATALOGUED PROCEDURE LISTING 


MEMBER NAME PLILFC 

//PLU EXEC PGM=IEMAA,PAR«»»NCLOAO#NODECK»,REGION»90K 
//SYSPRINT DO OCNAME«PL10UT 

//PLICUT DO SYS0UT*A,0CB«tRECFM*VB,LRECL»l25,BLKSIZE=l254) 
//SYSLIN 00 0SNAMEaLL0A0SET*0ISP»lM0D,PASS) ,UNIT*SYSDA, 

// SPACE*(80t{250tlOO))fDCB*BLKSUE*80 

//SYSUT3 DO UNlT*SYSDA,SPACE*(80,J250,250n fSEP-SYSPRINT, 

// DCB«BLK$1ZE*8Q 

//SYSUTl 00 UNIT«SYSOA»SPACE=(1024,{60f60l.fCQNTIGJ, 

// SEPa(SYSUT3,SYSPRINT»SYSLINjf0CB»BLKSIZE=1024 


10000000 

20000000 

20000005 

*30000000 

40000000 

*50000000 

6CC0O000 

*70000000 

80000000 


4. REFERENCE 


IBM 360 OS PL/I(F) Programmers Guide, GC28-6594 
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PLILFCL - PL/I COMPILE AND LINKAGE EDIT 


1. GENERAL 

PLILFCL is a two-step cataloged procedure to compile and linkage edit 
a PL/I source program. Progrananers will generally use this procedure 
when they wish to retain a load module in the load library specified, 
by the SYSLMOD statement in the linkage edit step. 

2. USING PLILFCL 

2.1 The PLILFCL procedure is invoked with an EXEC statement coded: 

// EXEC PLILFCL 

2i2 The following DD statements must be added to the procedure. 

2.21 A PLIL.SYSIN DD statement defining the input. 

//PLIL.SYSIN DD * 

(PL/I source deck) 
or 

//PLIL.SYSIN DD (parameters defining a source input 

data set) 

2.22 A LKED.SYSLMfiiD DD statement to define a storage place for the 
load module, 

//LKED.SYSLM0i) DD (parameters describing the load module PDS) 

2.3 The following DD statement may be added to supply additional input 
to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //PLIL. DD statements. 

3. EXAMPLE OF USE 

// EXEC PLILFCL 
//PLIL.SYSIN DD * 

PL/I source deck 

//LKED.SY$LM0D DD DSN=^DEV.L0ADLIB(TESTM0D),DISP=SHR 
/* 


(Continued on Next Page) 
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PLILPCL - PL/I COMPILE AND LINKAGE EDIT (CONT. 


4. CATALOGED PROCEDURE LISTING 


MEMBER NAME PLILFCL 

//PLIL EXEC PGM=IEMAA,PARM»'L0A0.N0DECK»tREGI0N«90K 
//SYSPRINT DO DDNAME=PL10UT 

//PLIOUT DO SYS0UT=A,DC8*tRECFM»VB,LRECL»125,BLKSIZ£*1254l 
//SYSLIN do DSNAME*aLOADSET,DISP»(MOD,PASSJfUNIT=SYSOA, 

// SPACE={400,(l00t50))tDCB»BLKSIZE=400 

//SYSUT3 DD UNiT=SYS0A,SPACE*(80,(250,250)JfSEP=SYSPR2NTr 
// DCB^BLKSIZE=80 

//SYSUTl DD UNIT=SYSDA,SPACE={lC24,(60f6C),,C0NTIG3, 

// SEP=(SYSUT3,SYSPRINT,SYSLINJ,DCB=8LKSIZE*1024 

//LKEC EXEC PGM=AtriEiJt,PARM=’XREF,LIST* |C0ND={16,EQ,PLIL J, 
// REGION=gOK 

//SYSLIB DD DSNAME=SYS1.PL1LIB,0ISP*SHR 

//SYSUTl DD UNIT=SYSDA,SEPaSYSLIB# 

// SPACE=(TRK,{14,5 )i 
//SYSPRINT DD SYSOUT^A 

//SYSLIN DD OSNAMt:=eLOAOSET,DISP»{OLD,DELETE) 

// DD DDNAME*SYSIN 


00000010 
00000020 
00000025 
00000030 
00000040 
*00000050 
00000060 
*00000070 
00000080 
.00000090 
00000100 
OOOOOllO 
00000120 
00000 130 
00000140 
00000150 
00000160 


5. REFERENCE 


IBM 360 OS PL/I(F) Programmers' Guide, GC28-6594 
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1. GENERAL 

PLILFCLG is a three-step catalogued procedure to compile, linkage 
edit, aiid execute a PL/I source program. 

2. USING PLILFCLG 

2.1 PLILFCLG may be invoked by an EXEC statement. 

// EXEC PLILFCLG 

2.2 The following DD statement must be added to the procedure. 

//PLIL.SYSIN DD * 

(PL/I source deck) 
or 

//PLIL.SYSIN DD (appropriate parameters defining 

a source input data set) 

2.3 In order to supply additional input to the linkage editor, the 
following DD statement may be added. 

V/LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //PLlL. DD statements. 

2.4 Additional data sets required by the source program may be Specified 
on DD statements. 

//O0.ddname DD (appropriate parameters) 

These statements must follow all //PLlL. DD statements, all 
//LKED. DD statements, and any overriding //G0. DD statements. 

3. CATALOGED PROCEDURE LISTING 

MEMBER NAME PLILFCLG 

//PLlL EXEC PGM=IEMAA,PARM='LOAO,NODECK*,REGION-90K 

//SYSPRINT DD DONAME-PLIQUT 

//PLIOUT DO SYSOUT=A»DCB={RECFM=V8,LRtXL*125,8LKSI2E=l254) 

//SYSLIN DO DSNAK£=£LOADSET,DISP=(MOO,PASS),UNIT=SYSOA, 

// SPACe={AOnT(100,50)),OCB=BLKSI2e=400 

//SYSUT3 DD UNIT=SYSDA,SPACE*{80,(250t250) ),SeP»SYSPRINT, 

// ' DCB=BLKS12£=80 

//SYSUTl 00 UNIT-SYSDA,SPACE=(1024,(60,60),,CONTIG)f 

// SEP=(SYSUT3,SYSPRINT,SYSLIN),DCBsBLK$IZE=l024 

//LKED EXEC PGM=1EWL,PARM=*XREF,LIST',CGND=(16,EQ,PL1L), 

// REGI0N-90K 

//SYSLIB DO DSNAME-SYSl.PL1LIB,DISP=SHR 
//SYSLMOD DO 0SN=€;G0SET (GG) ,015?= (MOD, PASS) , 

// UNIT=SYSDA,SPACE=(TRK,(9,4,1)) 

V/SYSUTl DO UNIT=SYSDA, 

// SPACE=(TRK,(14,5)) 

//SYSPRINT 00 SYS0UT=A ■ 

//SYSLIN DD OSNAMe=£LGADSET,DlSP=(OLO,DELETE) 

// OD DDNAM£=SYSIN 

//GO EXEC PGM=’?.LKED.SYSLMOO,COND=({9,LT,LKED),( U,LT,PLiL)) 

//SYSPRINT DO SYS0UT-=A 


04000000 

08000000 

08000005 

12000000 

16000000 

*20000000 

24000000 

♦28000000 

32000000 

36000000 

40000000 

44000000 

48000000 

52000000 

56000000 

6O000CO0 
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PLILFLG - PL/I LINKAGE EDIT AND EXECUTE 


V. _ .y 






1. GENERAL 

PLILFLG is a two-step cataloged procedure to linkage edit an object or 
load module to produce a load module and execute it* The linkage edit 
step provides a reference to the automatic call library SYSI.PLILIB* 

2* USING PLILFLG 

2*1 PLILFLG may be invoked by an EXEC statement. 

// EXEC PLILFLG 

2.2 The following DD statements may be added to supply additional input to 
the linkage editor. 


2.3 


//LKED.SYSIN 


DD (parameters describing linkage editor control input 
and/or object module input) 


or 

y/LKED.ddname DD (parameters describing an additional call library) 

Additional data sets required by the users program may be specified on. 
DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //LKED. DD statements. 


3. CATALOGED PROCEDURE LISTING 



MEMBER NAM E PLIL FLG 

//LKED EXEARMS 'XREF ,LIST • ,R£GION®90K 
//SYSLIB UD DSNAME=SYSl.PLlLlBfOXSPeSHR 
//i>YSLMUO DO 0SN=LGUSET(G01 ,DISP«(MODf PASS) t 
// UNiT=SYSDA,SPACE=(TRKf{9,4,1)) 

//SYSUTl DO UNITsSYSDA,S6Ps(SYSLMUD,SYSLlti), 

// SPaCE=ITRK,(14,5)) 

//SYSPKINT DO SYSUUTsA 
//SYSLIN DO OONAMEs^SYSIN 

//GO EXEC PGMs^*.LKED.SYSLM0D,C0ND*(9,LT,LKED) 

//SYSPRIN7 DD SYSOUT=A 


09000000 

lEQOOOOO 

27000000 

36000000 

45000000 

54000000 

63000000 

72000000 

81000000 

90000000 


4. REFERENCE 


IBM 360 OS PL/I (F) Programmers Guide, GC28-6594 
IBM 360 OS Linkage Editor and Loader, GC28-6538 
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RPGEC - RPG COMPILE 


1. GENERAL 

RPGEC is a one-step catalogued procedure to compile an RPG source 
program. It does not normally produce an object module. 

2. USING RPGEC 

2.1 RPGEC may be invoked by an EXEC statement. 

// EXEC RPGEC 

2.2 The following DD statement must be added to the procedure. 

//RPG.SYSIN DD * 

(RPG source deck) 
or 

//RPG.SYSIN DD (appropriate parameters defining 
a source input data set) 

3. CATALOGUED PROCEDURE LISTING 


MEMBER NAME RPGEC 

//RPG EXEC PGM*IESRPG OOOOOlOO 
//SYSPRINT DD SYSOUT^A * 00000200 
//SYS PUNCH DO SYSOUT»P 00000300 
//SVSUT3 OD UNIT=SYSDA,SPACE=(600,(X00,20Ji 00000400 
//SYSUT2 DD UNIT=SYSDA,SPACE={600,(100,20)) 00000500 
//SYSUTl 00 UNIT=(SYS0A,SEP={SYSUT2,SYSUT3)),SPACE«(600,(100,20)) 00000600 
//SYSCO DD 0SN=f;GQ,UNIT=ISYSDA,SEP=SYSPUNCH),SPACE-(80,(200,S0)) , 000CC7OO 
// DISP={MOD.PASS) 0CG00800 
//SYSUDUMP OD SYSQUT-A,DCB=<RECFM=FBA,LRECL*121,BLKSI2E*1089) 00000900 


4. REFERENCE 

IBM 360 OS RPG Specifications, GC24-3337 
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RPGECL - RPG COMPILE AND LINKAGE EDIT 









1. GENERAL 

RPGECL is a two-step cataloged procedure to compile and linkage edit 
an RPG source program. Programmers will generally use this procedure 
When they wish to retain a load module in the lead library specified 
by the SYSLMOD statement in the linkage edit step. 

2. USING RPGECL 

2.1 The RPGECL procedure is invoked with an EXEC statement coded: 

// EXEC RPGECL 

2.2 The following DD statements must be added to the procedure. 

2.21 An RPG.SYSIN DD statement defining the input. 

//RPG.SYSIN DD * 

(RPG source deck) 
or 

//RPG.SYSIN DD (parameters defining a source input 
data set) 

2.22 A LKED.SYSLM0D DD statement to define a storage place for the 
load module. 

//LKED.SYSLM0D DD (parameters describing the load module PDS) 

2.3 The following DD statement may be added to supply additional input 
to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //RPG. DD ptatements. 

3. EXAMPLE OF USE 

// EXEC RPGECL 
//RPG.SYSIN DD * 

RPG source deck 

//LKED.SYSLM0D DD DSN^DEV.L0ADLIB(TESTM0D),DISP“SHR 
/* 


(Continued on Next Page) 
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RPGECL ~ RPG COMPILE AND LINKAGE EDIT (CONT.) 


4. CATALOGED PROCEDURE LISTING 


0970 


MEMBER NAME RPGECL 
//RPG EXEC PGM»feSRPG 
//SYSPRINT DO SYS0UT=A 
//SYSPUNCH 00 SYSOUT»P 
//SYSUT3 DO UNIT=SYSDA,SPACE»(600t<100,20n 
//SYSUT2 00 UNIT=SYSOA#SPAGE*(600,<100f20)J 
'/AlcrV nS i;!fMr‘SYS‘^A»SEP*(SYSUT2,SYSUT3JJ,SPACE-(600,(100,20)1 

SYSDA,SEP«SYSPUNCH) ,SPACE*(80, (200 ,50)) , 

// DI Sr-(MOO» PASS) 

//LKED EXEC PGM=ATTIEHL,PARM=*XR6F,LET,LIST»,R£6I0N«90K 
//SYSLIN DO DSNAME=£GO,DISP=(QLO,DELETE) 

// 00 DDNAME=SYSIN 


OOOOOiOO 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

OCOCIQOO 

OOOOllOO 

00001200 

00001300 

00001400 

00001500 


5. REFERENCE 


IBM 360 OS RPG Specifications, GC24-3337 
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RPGECLG - RPG COMPILE, LINKAGE EDIT, AND EXECUTE 


1. GENERAL 

RPGECLG is a three-step catalogued procedure to compile, linkage edit, 
and execute an RPG source program. 

2. USING RPGECLG 

2.1 RPGECLG may be Invoked by an EXEC statement. 

// EXEC RPGECLG 

2.2 The following DD statement must be added to the procedure. 

//RPG.SYSIN DD * 

(RPG source deck) 
or 

//RPG.SYSIN DD (appropriate parameters defining 
a source input data set) 

2.3 In order to supply additional input to the linkage editor, the 
following DD statement may be added. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //RPG. DD statements. 

2.4 Additional data sets required by the source program may be specified 
On DD statements. 

//G0.ddname DD (appropriate parameters) 

These statements must follow all //RPG. DD statements, all 
//LKED. DD statements, and any overriding //G0. DD statements. 


3. CATALOGED PROCEDURE LISTING 


MEMBER NAME RPGECLG 

//RPG EXEC PGM*IESRPG 0568 

//SYSPRINT bo SYS0UT*A 

//SYSPUNGH DO SYS0UT»P 

//SYSUT3 DD UNIT=SYSOA,SPACE=|600,<100,20n 

//SYSUT2 DD UNIT=SYSDA,SPAC£=(600t(lOO,20)) 

//SYSUTl DO UNIT=(SYSDA,SEP={SYSUT2.SYSUT3)),SPACE=(60G,(100,20)i 
//SYSCO DO DSN=SGO,UNIT={SYSDA,SEP=SYSPUNCH).SPACE*(80,(200,50)), 

// DISP={M00,PASS) 

//LKED EXEC PGM*1EWL,PARM='XREF,LIST,LETSREGI0N*90K BJI 8/72 

//SYSLIN DD 0SNAME*tGQ,0ISP*(0LD,DELETE) 

// DO D0NAM£=SYSIN 

//SYSLMOO DO DSNAME=&GOSET(RPG),UNlT*SYSDA,SPACE*(1024,(50,20,1)), 

// DISP=(NEW,PASS) 

//SYSUTl DO UNIT={SYSDA,SEP*ISYSLlN,SYSLMCDJ),SPACe*(1024,(50,20)) 

//SYSPRINT 00. SYSOUT=A 

//GO exec PGM=*.LKED.SYSLM0D,C0N0*((9,LT,RPG),{5,LT,LKED)) 

//SYSUDUMP DD SYSOUT*A,DCB*(RECFM=FBA,LReCL*121,BLKSIZE*1089) 0568 


00020000 

00040000 

00060000 

00080000 

00100000 

0C120C00 

00140000 

00160000 

00180000 

OC2COOOO 

00220000 

X00240000 

0C260000 

00280000 

00300000 

0C320000 

00340000 
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RPGECLG - RPG COMPILE> LINKAGE EDIT, AND EXECUTE (CONT.) 


4. REFERENCE 

IBM 360 OS RPG Specifications, GC24-3337 
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SORTSPAC - CALCULATE DISK SORT WORK SPACE 


1. GENERAL 

SORTSPAC is a cataloged procedure which facilitates use of a Western 
Electric Utility program of the same name, SORTSPAC, for calculating 
disk sort work space. The computations performed are based on formulas 
given in the IBM OS SORT/MERGE Programmers Guide SG33-4007. 

2. CONTROL CARD PARAMETERS 

SORTSPAC requires a control card coded as follows: 

(beginning in column 1) LLLLL,SSSSSSSS,NN,DASD 
where L is the logical record length including leading zeros 
S is the record count including leading zeros 
N is the number of work areas (default=06) 

DASD is 2314 or 3330 (default=3330) 

3. USING SORTSPAC 

The SORTSPAC procedure is invoked with an EXEC statement and appropriate 
control cards. 

// EXEC S0RTSPAC 

control cards (one or more cards) 

4. CATALOGED PROCEDURE LISTING 


MEMBER NAME SORTSPAC 
//SORTSPAC PRQC 

//SPAC EXEC PGM*SaRTSPACtREGION»30K 
//SYSDUT DO SYS0UT=A 
//PARMS DO 0CNAM6=SYSIN 

5. REFERENCE 

Division 3, Chapter 2, Section 2, SORTSPAC Utility Program. 
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00000020 

00000030 
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Western Electric Company Division 3 Chapter 5 

Watrenville Data Center 71. Section 1 Appendix AQ 

PROGRAMMING S & R MANUAL Issue 1 Date 6/29/73 


WECT - CARD INPUT TO STANDARD LABEL TAPE WITH CATALOGING 


1. GENERAL 

WECT is a cataloged procedure which facilitates use of a Western Electric 
utility program of the same name, WECT, for the transfer of card input 
from the job input stream to a standard label tape and to catalog the 
data set under a user designated DSNAME. 

2. WECT OPTIONS 

2.1 WECT permits the user to specify one of three card-to-tape options, 
which are designed to meet the needs of systems interfacing with 

converted 7080 systems as well as the current generation systems. The options 
are governed by the symbolic parameter "REC" (Paragraph 3), which supplies a 
numeric value for the LRECL DCB parameter. The options are: 

Option A - This is generally used in conjunction with converted 
7080 systems and is equivalent to CTP-04, a 1401 
card-to-tape program. Four blanks and a record mark 
character are generated at the end of each logical 
record. In addition, an incomplete block is filled 
with nines padding before the tape mark is written. 
Designating REC«85 selects this option . If this 
option is selected, the user must specify a numeric 
value for the BLK symbolic parameter (Paragraph 3). 

Option B - The option was formerly used to create files for data 
transmission and was selected by designating REC“81 
which resulted in the generation of a record mark 
character as the 81st byte of the output record. 

Option C - The 80 column card image is copied as an 80 byte 
logical record, with blocking as specified in the 
’’BLK" symbolic parameter. Designating REC»=80 
selects this option . 

2.2 A message to SYS0UT-SYSUT3 indicates the option selected and the card 
count. 

3. SYMBOLIC PARAMETERS 

There are six symbol parameters which the user may employ to control the 
characteristics of his output file. 

REG is a numeric value for REGION. The default is 30. 

RETPD is the number of days the output tape is to be retained. The 
default is 1. 

FM is the value for the RECFM parameter. The default is FB. 
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WECT - CARD INPUT TO STANDARD LABEL TAPE WITH CATALOGING (CONT.) 

3. SYMBOLIC PARAMETERS (GONT.) 

REC is the value for the LRECL parameter. The default is 80. 

Other values may be 85 and 81. 

BLK is the value for the BLKSIZE parameter. The default is 800. 

This value must be a multiple of the REC parameter. 

DSN is the dsname to be cataloged. This parameter must be supplied , 
by the user or the job will fail. The name should be enclosed 
in apostrophes. 

4. EXAMPLE OF USE 

//CUT#CT01 J0B (P,12345,X),WN3499SMITH,CLASS=J,REGI0N=3OK 
// EXEC WECT,DSN=»PRDT5.CUT.L0G’,RETPD=14,REC=85,BLK=850 
//CT.SYSUT2 DD UNIT=TAPE 
//CT.SYSUTl DD * 
card input 

/* 

5. CATALOGED PROCEDURE LISTING 


MEMBER NAME WECT 

//WECT PROC ReG=30,RETP0=l,FM=F8#REC=8O,BLK»8C0 00000010 
//UNCATLG EXEC PGM=IEFBR1A,REGI0N=SREG.K 00000020 
//UNCATtG DO DSN-£DSN,DISP=(0LD,UNCATL6i.UNlT»{TAPE*,DEFER), C0000030 
// V0L=SER=TAPE 00000040 
//CT EXEC PGM=WECT,REGI0N=£REG.K,CQN0=EVEN 00000050 
//SYSUT3 DD SYSQUT=A,DCB=LR£CL=120 00000C60 
//SYSUT2 DD UNIT=TAPE,DSN*eDSN,OISP*(,CATLG),LABEL=RETP0*6RETPD, OOOOOOTQ 
// CCB={RECFM=£FM,LRECL=£REC,BLKSIZe=£BLK) OOOCCC80 


6. REFERENCE 

Division 2, Chapter 4, Section 2 contains a Warrenville 
Data Center Standard describing input data streams. It is 
recommended that the user become acquainted with these 
Standards prior to using the WECT cataloged procedure. 


Reason for reissue: Reference to ASP SETUP card deleted. 
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WELIST ~ LISTING VTOC, PDS DIRECTORIES, CATALOGS 


1. GENERAL 

WELIST is a cataloged procedure which facilitates use of the IBM Utility 
Program lEHLIST for listing catalogs, partitioned data set directories, 
or volume table of contents of the system residence volume and/or a disk 
pack of the users designation . WELIST provides DD statements for SYSPRINT, 
the System residence pack, and/or a disk pack of the users designation, 

2- SYMBOLIC PARAMETER 

WELIST requires a VOLID parameter which supplies the volume serial number 
of the disk pack on which the functions are to be performed. 

3. USING WELIST 

The WELIST procedure is invoked with an EXEC statement which includes the 
symbolic parameter,VOLID, and is followed by lEHLIST control statements. 

// EXEC WELIST,V0LID=xxXxxx 
control statements 

4. EXAMPLE OF USE 

// . EXEC WELIST,V0LID=TESTO5 

LISTPDS DSNAME=DEV.L0ADM0D,V0L=3330^TESTO5 

/* 

5. CATALOGED PROCEDURE LISTING 


MEMBER NAME WELIST 
// PROC VOLIDaSYSROl 

//LIST EXEC PGM=IEHLIST,REGI0N=4AK 
//SYSPRINT 00 SYS0UT=A 

//DOPES DO VOLUME=REF=SYS1.SVCLIB,DISP=OLD 
//DOl DO UNIT=SYSOA,VOL=!S£R«£VOLIO»DISP*OLD 

6. REFERENCE 

IBM OS Utilities C28-6586,lEHLIST 
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WEMOD - CATALOG OPERATIONS, RENAMING, SCRATCHING 


1. GENERAL 

WEMOD is a cataloged procedure which facilitates use of the IBM Utility 
PrograjB lEHPROGM for scratching, renaming, and performing catalog 
operations on direct access volumes, WEMOD provides DD statements for 
SYSPRINT, the system residence volume, arid a pack of the users designation 

2. SYMBOLIC PARAMETER 

WEMOD requires a VOLID parameter which supplies the volume serial number 
of the disk pack On which the functions are to be performed. 

3. USING WEMOD 

The WEMOD procedure is invoked with an EXEC statement which includes the 
symbolic parameter, VOLID, and is followed by IEHPR0GM control statements. 

// EXEC WEM0D,V0LID=xxxxxx 

control statements • 

4. EXAMPLE OF USE 

// EXEC WEM0D,V0LID=TESTO6 

SCRATCH DSNAME=USERS.DATASET,V0L=333Ot=TESTO6 

/■* 

5. CATALOGED PROCEDURE LISTING 
MEMBER- NAME WEMOD 

// PROC VCLID«SYSR01 00000100 

//MOO EXEC PGM=IEHPR06M.REGI0N»44K 00000200 

//SYSPRINT DO SYSQUT=A,SPACE*(TRK*t5,5l) 69160-EWR 0000G300 

//ODRES 00 V0LUME=REFsSYSl.SVCLIBf0ISP-QL0 00000400 

//DOl DO UNIT=SYSOAfVOL=SER*6VOLID,DISP*CLD 00000500 

6. REFERENCE 

IBM OS Utilities GC28.6586, lEHPROGM 
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DADUMP -- DIRECT ACCESS FILE DUMP LISTING 


1. GENERAL 

DADUMP is a catalogued procedure which facilitates use of the Western 
Electric utility program WEDEBEPT to print a sequential direct access file 
whose characteristics may not be known. It employs symbolic parameters 
to supply the required parm fields as well as one for dsname. The data 
set under Investigation is assumed to be catalogued or passed. If it is. 
not* the volume serial number of the direct access volume must be 
supplied with an override card for ddname SYSUTl. 

2. SYMBOLIC PARAMETERS 

BEGBLK 5 digit field to designate the block number at which printing 
is to begin. The default is 00001 . 

NOBLKS 5 digit field to designate the number of blocks to be printed. 

The default is 00025 . The keyword ALLPT may be used to print 
the entire file. 

DSN This parameter is required to designate the file's dsname. 

REP 1 byte code to designate character representation to be used 

in printing. The default is C for normal characters. H is 
used to designate hexadecimal representation; • 

3. USING DADUMP 

3.1 The procedure is invoked with an EXEC card, the required symbolic 
parameter, DSN, and the optional symbolic parameters; 

// EXEC DADUMP, DSN-dsname 

3.2 The data set is assumed to be catalogued or passed. If it is not, 

the user must supply a volume serial number to indicate the data set's 
location via an override card for ddname SYSUTl. 

4. EXAMPLES 

4.1 Print 10 blocks of data of a passed data set named &&TEMPFILE. 

// EXEC DADUMP,DSN«'&&TEMPFILE’,N0BLKS=00010 

4.2 Print 50 blocks of data of a file located on disk pack PR0DO7 in 
hexadecimal representation. The data set, PRD7.MASTER, is not catalogued 

// EXEC DADUMP,DSN='PRD7.MASTER',N0BLKS«OOO5O,R£P=H 
//SYSUTl DD V0L=SER=PR0DO7 
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DADUMP -• DIRECT ACCESS FILE DUMP LISTING (CONT.) 


5. CATALOGUED PROCEDURE LISTING 



MEMBER NAME DADUMP 

//DADUMP PROC BEGBLKs:00001,N0Bl.KS=00025,REP*CtDSN«N0NE OOOOOOlO 
//♦ 00000020 
//♦ 6EGBLK -r 5 DIGIT FIELD, BLOCK TO BEGIN PRINTING . 00000030 
//♦ NOBLKS - 5 DIGIT FIELD, NO. OF BLOCKS TO BE PRINTED 00000040 
//* REP “ 1 BYTE CODE. C IS FOR NORMAL CHARACTER REPRESENTATION AND 00000050 
//♦ H IS FOR HEXADECIMAL* 00000060 
//♦ DSN - DSNAME OF DATA SET TO BE PRINTED 00000070 
//* IF DSN ISN'T CATALOGUED, OVERRIDE SYSUTl WITH A VOL SER PARAMETER 00000080 
//♦ 00000090 
//pEBE EXEC PGM=WEDEBEPT,REGI0N=30K, OOOOOlOO 
// PARM=(01,LB6GBLK,Ol,CNOBLKS,tREP» OOOOOllO 
//SYSUTl DD DSN=SDSN,DISPs{SHR,PASS),UNIT*DISK 00000120 
//SYSUT2 DD SYSOUT-A,OCB=(DSORG*PS> 00000130 
//SYSUDUMP DD SYSOUT®A 00000140 


6. REFERENCE 

Division 3, Chapter 2, Section 2, WEDEBEPT. 
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TPDUMP ■ TAPE DUMP LISTING 

1. GENERAL 

TPDUMP is a catalogued procedure which facilitates use of the Western 
Electric utility program WEDEBEPT to print the files of a magnetic 
tape whose characteristics may not be known. It employs symbolic 
parameters to supply the required parm fields as well as one for the 
volume serial number. 

2. SYMBOLIC PARAMETER 

BEGFILE 2 digit field to designate begining file to be printed. 

The default is 01 . 

BEGBLK 5 digit field to designate the block at which printing is 

to begin. The default is 00001 . 

NOFILES 2 digit field to designate the number of files to be printed. 
The default is 01 . 

NOBLKS 5 digit field to designate the number of blocks to be printed. 

Default is 00025 . The keyword ALLPT may be used to print the 
entire file. 

REP 1 byte code to designate character representation. The 

default is C for normal characters . H is used to designate 
hexadecimal representation. 

SER 6 digit volume serial number of tape being dumped. The SER 

parameter must be supplied by the user . 

DSN The default is ANY. The label is not checked. 

3. USING TPDUMP 

3.1 The procedure is invoked with an EXEC card and the required SER parameter 
and the optional parameters: 

//EXEC TPDUMP,SER«nnnnnn 

3.2 Users must be aware that headers and trailers on standard label tapes 
constitue files. Standard label tapes are of the form: header-data- 

trailet header-data-trailer, etc. The appropriate file or files must be 
selected employing the symbolic parameters. 

(Continued on next page) 

Reason for reissue: As indicated and reference to ASP SETUP card deleted. 
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TPDUMP - TAPE DUMP LISTING (CONT.) 


4. EXAMPLES 

4.1 Print the headers and 25 blocks of data of standard label tape 712345. 


// EXEC TPDUMP,SER*712345,N0FILES=O2 

4.2 Print 100 blocks of data on standard label tape 700001 beginning with 
block 50. 


// EXEC TPDUMP,BEGFILE=O2,BEGBLK*=OOO5O,N0BLKS=00100, SRR^700001 

5. CATALOGUED PROCEDURE LISTING 

MEMBER name TPDUMP 

//TPDUMP PROC BEGFILE=01tBEGSLK=00001»NOFILES=01tNOBLKS=s00025,REP«CT 
// USN=ANY 
//* 

//♦ BEGFILE - 2 DIGIT FIELD, BEGINNING FILE TO BE PRINTED 
//^ BEGBLK - 5 DIGIT FIELD, BLOCK TO BEGIN PRINTING 
//♦ NOFILES - 2 DIGIT FIELD, NO. OF FILES TO BE PRINTED 

//« NOBLKS “5 DIGIT FIELD, NO. OF BLOCKS TO BE PRINTED 

//« RE? - 1 BYTE CODE. C IS FOR NORMAL CHARACTER REPRESENTATION AND 
//* H IS FOR HEXADECIMAL. 

//♦ SER - 6 DIGIT SERIAL NUMBER FOR TAPE VOLUME IS REQUIRED^ 

//« 

//DEBE EXEC PGH=WEUEBEPT,REGI0N=30K, 

// PARM = ( tbEGFILE ,£.bE&BLK,tNOFlLES,£NOBLKS,llREP) 

//SYSUTl DD UNIT--TAPE,LABEL«( ,BLP) ,DSN=£DSN,VQL=SER-£SER,DISP»OLD 
//SYSUT2 DD SYSDUT=A,DCB={DSORG=PS) 

//SYSUDUMP DD SYSOUT=A _ 

6. REFERENCE 

Division 3, Chapter 2, Section 2, WEDEBEPT. 


Reason for Reissue; As indicated and reference to ASP SETUP card deleted. 
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PPANAL - PROBLEM PROGRAM ANALYZER- 


1. GENERAL 

PPANAL is a single step procedure which facilitates use of the 
Boole and Babbage analyzer program of the Problem Program Efficiency 
package. The procedure offers two symbolic parameters to designate the 
tape containing the extracted data to be analyzed. The ptogrammer may 
add analyzer control statements to control the study. 

2. SYMBOLIC PARAMETERS 

DSN Supply the dsname of the extracted data. Enclose it in 

apostrophes if it contains any special characters (i.e. periods 
or ampersands.) The default name is PPDEXT . 

SER Supply the volume serial number of the standard label tape. 

3. USING PPANAL , 

3.1 The procedure is invoked with an EXEC card with the symbolic parameters 
designating volume serial number and dsname. The volume serial number 
is required unless the tape is passed from a previous step. If it is passed, 
the VOL parameter must be muliified with a overriding dd statement. Analyzer 
control statements may be added after the EXEC card or after an overriding 
DD statement if one is used. 

4. EXAMPLES 


4.1 // EXEC PPANAL,DSN=EXTl,SER=12345e 

analyzer control cards 

.. 

The above example will analyze the data on tape 123456 under the 
dsname of EXTl. 

// EXEC PPANAL 
//FT04F001 DD Vj^L= 
analyzer control cards 
/* 

The above example uses the default dsname, PPDEXT. An override 
card is provided to nullify the volume parameter in Order to accept 
a "passed” tape from an earlier step. 



Reason for reissue: Reference to ASP SETUP card deleted. 
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Division 
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Issue 1 


PPANAL - PROBLEM PROGRAM ANALYZER (CONT.) 


5. CATALOGUED PROCEDURE LISTING 


MtrtBfcK NAME PPANAL 

// PkUC KEGs90,DSN=PPUbXT»SER»000u00 
//PPANAL EXEC PGM=PPANAL,REGlONsLRfcG.K 

//PT04F001 DU USN = tDSN»UlSP=OLD,VOL=i>ERsLSERfUNlT«TAPE 
//FTOoFOOl DD SYSuUT=A,DCtis{DSURG=PS) 

//FT0i>FO0l DD OPNAME«SYSlN 
//SYSABEND DD SYS0UT=A 


6. REFERENCE 

6.1 SMS/360 Users Guide for PPE, Boole and Babbage 

6.2 See catalogued procedure, PPEXT, this section* 

6.3 SMS/360 (PPE), Division 3, Chapter 2. 
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PPEXT- PROBLEM PROGRAM EFFICIENCY EXTRACTOR 


1. GENERAL 

PPEXT is a single step procedure which facilitates use of the 
Boole and Babbage extractor program of the Problem Program Efficiency 
package. The procedure provides five symbolic parameters to allow 
designation of a load library, variation of the region, variation of 
the dsname of the extracted information, its disposition and retention 
period of the tape volume. The programmer provides his program’s DD 
statements and PPE control cards. 

2. SYMBOLIC PARAMETERS 

LIB Supply the dsname of the load library which contains the program 
to be tested* The name must be enclosed in apostrophes if it 
contains any special characters. There is no default, the name must 
must be provided . 

REG Supply a region value expressed as nnn, where nnn consists of the 

users program region plus 30K for the extractor. The default is 60 . 

DSN Supply a dsname for the extracted information for analysis. Enclose 

it in apostrophes if it contains periods. The defattlt name is PPDEXT . 

DISP This designates a disposition of the extracted data tape. It. defaults 
to KEEP * Users may wish to use PASS if the information is to be 
processed by the analyzer program in the same job* 

RET This designates a retention period in days for extracted data tape. 

The default is 0. If programmers wish to retain the tape for 
subsequent analysis runs, they should specify the number of days 
the tape is to be retained, 

3. USING PPEXT 

3.1 The procedure is invoked with an EXEC card with the optional and required 
symbolic parameters. PPE control cards including one with the name of 

the program under analysis (the name is enterea starting in column 1) are placed 
after the EXEC card. DD statements required by the users program are placed after 
this card or cards. 

// EXEC PPEXT,REG=nnn,DSN«dsname,DISP=xxxx,RET=nn 
PPE control cards 

//USERDD DD programs DD statements 

3.2 Should one of the program’s required ddhames be SYSIN, the following DD 
card must precede the PPE cards. 

//PPE2EIN1 DD * 

Reason for reissue: Reference to ASP SETUP card deleted. 
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PPEXT - PROBLEM PROGRAM EFFICIENCY EXTRACTOR (CONT.) 


4. EXAMPLES OF USE 


4a // EXEC PPEXT,LIB='DEV*L0ADM0D’,DISP«PASS,REG»9O 
PGMl 

//DATAIN DD 
//REP0RT DD 
//ERR0RS DD 

The above example will analyze a run of PGMl which resides in 
DEV.L0ADM0D. A region of 90K is allowed for the run and data extraction. 
The extracted data is passed for subsequent processing under the default name 
PPDEXT and the tape will not be retained. 

^•2 // exec PPEXT,LIB«'&&L0ADSETSRET»»1O,REG-12OK,DSN«EXT1 

PGMXYZ 
//DDl DD 
//DD2 DD 

The above example is prepared to analyze a program located in the 
temporary library &&L0ADSET created and passed from a compile and link. 
The extracted data will be retained on a tape for 10 days under the name EXTl. 

5. CATALOGUED PROCEDURE LISTING 


MEMBER NAMt PPEXT 

// PROC REG=60,DISP=KEEP»ReTa0,DSNsPPDEXT OOOOOOlO 
//PPE EXEC PGM^PPDeXTl,R6GI0N=CRE&.K 00000020 
//PPE2EOU2 OD UMT=TAPE,OSN=£DSM,DrSP=(fCDISPI»LABELsRETPDteCRET 00000030 
//PPE2EERR DD SYSOUT=A,DCBsTDSORG=PS) 00000040 
//PPE2EIN1 DD DDMAME=SYSIN 00000050 
//STEPLIB DO DSN*eLIB,DISP=SHR 00000060 


6. REFERENCE 

6.1 SMS/360 Users Guide for PPE, Boole and Babbage 

6.2 See catalogued procedure, PPANAL, this section 

6.3 SMS/360 (PPE), Division 3, Chapter 2. 


Reason for reissue: Reference to ASP SETUP card deleted. 
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SORT - SQRT/MERGE WITH ROUTINES THAT 
REQUIRE LINK EDITING 


1. GENERAL 

The SORT cataloged procedure is designed to be used in sorting and 
merging applications that have modification routines that require 
link editing. You can use this procedure for all sort/merge applications, 
but it is inefficient for those that do not have modification routines 
that require link editing, because it causes unnecessary linkage editor 
data sets to be allocated. 

2. USING SORT 

2.1 SORT is invoked by an EXEC statement 
// EXEC S0RT 

2.2 The programmer must define the input data. 

//S0RTIN DD parameters describing input 

2.3 The file for sorted output must be defined. 

//S0RT0UT DD parameters describing output. 

2.4 Three to seventeen auxiliary devices must be defined as work fiXds. 

They may be disk or tape. 

//S0RTWKnn DD parameter describing work files. 

2.5 A file must be defined for the sort control statements. 

//SYSIN DD * 
sort control cards 

2.6 Additional data sets which contain modification routines may be defined 
under a user specified ddname. 

3. CATALOGUED PROCEDURE LISTING 

.MEMBER NAME SORT 
//SORT PROC 
//SORT EXEC PGM=S0RT 
//SYSCUT OD SYS0UT=A 
//SYSPRINT CD DUMMY 

//SYSLMQD DD UN I T=SYSDA,SPACE=lTRK,{20,20,U) 

//SYSLIN DD UNIT=SYSDA,SPACE=ITRK,(1,1)) 

//SORTLIB DD 0SN=SYSl.SaRTLI8,DISP-SHR 

//SYSUTl OD UNIT=(SYSDA,SEP={SC1RTLIB,SYSLM0D,SYSLIN)), 

// SPAC£={TRK,aO,4)) 

4. REFERENCE 

IBM OS Sort/Merge Programmers' Guide, SC33-4007 
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SQRTD - SORT/MERGE WITH NO ROUTINES OR ROUTINES 
THAT DO NOT REQUIRE LINK EDITING 


1. GENERAL 


The SORTD cataloged procedure is designed for sorting and merging 
applications that have no modification routines, or have modification 
routines that do not require link editing. It cannot be used for 
applications having modification routines that need link editing. 

2. USING SORT 

2.1 SORT is invoked by an EXEC statement. 

// EXEC S0RTD 

2.2 The programmer must define the input data. 

//S0RTIN DD parameters describing input 

2.3 The file for sorted output must be defined. 

//S0RT0UT DD parameters describing output 

2.4 Three to seventeen auxiliary devices must be defined as work files. 
They may be disk or tape. 

//S0RTWKnn DD parameter describing work files 

2.5 A file must be defined for the sort control statements. 

//SYSIN DD * 
sort control cards 

3. ' catalogued PROCEDURE LISTING 

MEMBER NAME SORTD 
//SORTD PROG 
//SORT EXEC PGM=SORT 
//SYSCUT 00 SVS0UT=A 

//SORTLIB DO DSN=SYS1.S0RTLIB,DISP=SHR 

4. REFERENCE 

IBM OS Sort/Merge Programmers' Guide, SC33-4007 
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C0B4C0L - COBOL COMPILE, OPTIMIZE AND LINK-EDIT 


1. GENERAL 

C0B4C0L is a two-step catalog procedure to compile, optimize and 
link edit a source module into an optimized load module. The 
optimization is done with the Capex II dptimizer. (See Div. 3, Chap. 2, 
Sect. 3, App. F.) 

2. USING C0B4C0L 

2.1 C0B4C0L may be invoked by an EXEC statement: 

// EXEC C0B4C0L 

2.2 The following DD statements must be added to the procedure. 

2.21 A COB.SYSIN DD statement defining the input. 

//C0B.SYSIN DD * 

(COBOL source deck) 

or 

//C0B.SYSIN DD (parameters defining a source input 
data set) 

2.22 A LKED.SYSLM0D DD statement to define a storage place for the 
load module. 

//LKED.SYSLM0D DD (parameters describing the load 

module PDS) 

2.3 The following DD statement may be added to supply additional 
input to the linkage editor. 

//LKED.SYSIN DD (appropriate parameters) 

This statement must follow all //G0B. DD statements. 

3. EXAMPLE OF USE 

// EXEC C0B4C0L 
//C0B.SYSIN DD * 

COBOL source deck 

//LKED.SYSLM0D DD DSN=DEV.L0ADLIB(TESTM0D),DISP=SHR 
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C0B4C0L - COBOL COMPILE, OPTIMIZE AND LINK-EDIT (Cont.) 
4, CATALOGED PROCEDURE LISTING 


MEMBER NAME COB4CUL 
//C0B4C0L PROC LIN£S=55 

//GOB EXEC PGM=CPXUPTSH»REGION=128K, 

// PAKM=»NOt3ECK ,NOMAP»LlNECNT=&LrNES* 

//STEPLIB DO DSN=SYS?.AMSLXB*DISP=SHR 
// DO DSN=SYS2.C0B0L4,LINK,D1SP=SHR 

//SYSINl DD DSNAME=&CSYSINI,UN1T=SVSDA,SPACE={605,«4640,580)) 

//SYSIN2 DO DSNAME=££SYS1N2,UNIT=SYSDA,SPAC6-C400,{240,80)) 

//STATSOO DD OSN=OPTSTATU,OISP=SHR 
//SYSUDUMP DD SYS0UT=A 
//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD SYS0UT=P,DCB = (RECFM=F ,BLKSIZE=BO) 

//SYSUTl DD 0SN=£SYSUT1,UNIT=^SYSDA,5PACE = {460, (6000,1 500) ) 
//SYSUT2 DD DSN=£SYSUT2,UNIT=SYSDA,SPACe=(460,(700,100)) 

//SYSUT3 DD DSN=GSYSUT3,UNIT=SYSCA,SPACE=(460,(700,100)) 
y/SYSUT4 DD DSN=£SYSUT4,UNiT=SYSDA,SPACE-(460,(700,100)) 

//SYSLIN DD DSN=tlL0ADSET,UrJIT=SYSDA,01SP=(M0D,PASS) , 

// SPACE = (400,(2*^0,6G)),DC8=BLKSIZ£=400 

//LKED EXEC PGM=ATT1EWL,REGI0N=128K,C0ND=(5,LT,C0B), 

// PARM=»XREF,LIST,LET* 

//SYSLIN DO DSN=£LOADSET,DISP=(OLO,DELETE) 

// DD DDNAME=SYSIN 

//SYSLMOD DD DSN=£GOSET(LOADMOD),DISP=(,PASS),UNIT=SYSOA, 

// SPACE=(TRK,(9,.l)) 

//SYSLIB OD 0SN=SYS2,C0B0L4.LIB,DISP=SHR 
//SYSUTl DD UN1T=SYSDA,SPACE=(TRK,(14,3)) 

//SYSPRINT DD SYSOUT=A 
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5* REFERENCE 

IBM ANS COBOL version 4 Progranuners* Guide, SC28-6456 









1. GENERAL 

META is a one step procedure to execute the Applied Data Research (ADR) 
METACOBOL pre-compiler processor* COBOL card image source statements 
preceeded by METACOBOL statements (if any) is the input used by METACOBOL 
and a COBOL card image output is produced. METACOBOL can access a 
LIBRARIAN type source file. Before executing this procedure, the user 
must access the METACOBOL manuals listed below for selecting the desired 
features via FARM input and/or control statements. 

2. USING META 

2.1 The META procedure is invoked with an EXEC statement which may or may not 
include "FARM.META" parameters as defined in the METACOBOL user manual. 
METACOBOL statements are also defined in the same manual. The region 
parameter varies depending upon the options chosen. At least a REGIdN=120K 
is required. 

// EXEC META ,FARM.META='xx,xx,xx=x,xx' 

//META.CARDF DD * 

METACOBOL SIATEMENTS (if any) 

SOURCE DECK (ANS COBOL.COBOL F source is acceptable only if 
converting to ANS COBOL) 

3. EXAMFLES OF USE 

//STEPl EXEC META,FARM.META='ID=^FLARPT,LI,SY,TA,RE=010^ 

//META.CARDF DD * 

*MACRO DIVISION. 

*$COPY EFA 

COBOL F SOURCE STATEMENTS 

This example is a COBOL F conversion to ANS COBOL. The new source state¬ 
ment output is on the file DDN=PUNCHF and may be used as input to an 
ANS COBOL compile. This example required a REGION=240K parameter. 

CATALOGED PROCEDURE LISTING 


//META EXEC PGM=MCT OOOCOOlO 

//LSTIN OU SYS0UT=A,DC6={LRECL-l2l,BLKS12E=968,RECFM-FB) 00000C2C 

//PUNCHF DU SYS0UT=^P,0CB=6LK5IZE=80 C000003U 

//F£ DD UNXT=SYSDA,SPAtE={7RK,(20tl0)) 00000040 

( //FM DD UNIT=SYSDA,SPACE=:(TKK,(20,i0)) 00000030 

//F2 DD UNITES YSDA,SPACE = (TRK,99, tCONTIG) 00000060 

//SYSLIB DD DSN=SYS2.METAC0b.SLIB,DISP=SHR 00000070 

// DD 0SN=SYS2.METALIB,DISP-SHR 00000080 
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META-METACOBOL PRE-COMPILE PROCESSOR (Contd.) 


5. REQUIRED REFERENCES 

ADR METACOBOL User Manual 
ADR METACOBOL MACADR Manual 

ADR METACOBOL Macro Facilities Reference Manual 
ADR Macro Writing, Volume 1 and 2. 
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DASPACE - CALCULATE DIRECT ACCESS SPACE USAGE 





1. GENERAL 

DASPACE is a catalogued procedure which facilitates use of the 
Western Electric utility program, DASPACE, for calculating direct 
access space usage for a logical record of given length under varied 
blocking factors. 

2. CONTROL CARD PARAMETERS 

DASPACE requires a control card for each logical record length under 
investigation: 

(beginning in column 1) LLLLL,SSSSSSSS,KKK 

where L is the 5 digit logical record length 
S is the 8 digit estimated record count 
K is the 3 digit key length 

3. USING DASPACE 

The procedure is invoked with an EXEC statement and appropriate 
control cards. 

// EXEC DASPACE 

control cards (one or more Cards) 

4. CATALOGUED PROCEDURE LISTING 



MEMBER NAME DASPACE 

//DASPACE PROC 00000010 

//DASPACE EXEC PGM:=DASPACE tREGIGN=30K 000000?0 

CONTROL CARD INPUT 1$ OF THE FORM: 00000030 

//♦ LLLLLtSSSSSSSS,LLL STARTING IN COLUMN 1 00000040 

//* LLLLL IS A 5 DIGIT LRECL OOOOOOSO 

//♦ SSSSSSSS IS AN B DIGIT RECORD COUNT C0000060 

//* KKK IS A 3 Ol&IT KEY LENGTH WHEN KEYS ARE USED 00000070 

//* OOOOOObO 

//^ A PARM=L MAY »£ USED FOR A FULL RANGE LISTING 00000090 

//* IF NO PARM IS SUPPLIED A CONDENSED LISTING IS PRODUCED 00000100 

//USAGE DO SySOUT = ATOCB=(RECFM»=FB»LRECL=12lTBLKS12Esl936) OOOOOIIO 

//SYSOUT DD SYSCUT=A 00000120 

//PARHS OD DDNAME=SYS1N 00000130 


5. REFERENCE 

Division 3, Chapter 2, Section 2, DASPACE Utility Program 
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REACT - DATA RETRIEVAL/REPORT FORMATTING SYSTEM 

1. GENERAL 

1.1 REACT is a catalogued procedure which executes the five programs of 
the RE-ACT Data Retrieval and Report Formatting System, Data is 

retrieved as requested via RE-ACT statements from a designated sequential 
or index sequential file residing on tape or disk. Output consists of 
printed reports, formatted as requested via RE-ACT statements. Totaling, 
sub-totaling, computations, page headings, and report sequencing can also 
be requested, 

2, USING REACT 

2.1 The REACT procedure is invoked with the following JCL statements: 

//*F0RMAT PR,DDNAME=:PRINTERl,e0PIES=l 1 

// EXEC REACT,REGI0N=6OK 

//REACT1,CARDSIN DD * | 

(RE-ACT Statements, A maximum of 45 requests) 

//REACT4.INFILE DD DSN=your input file 

2.11 See "RE-ACT System" manual for description of RE-ACT statements. 


(Continued on next page) 
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3. CATALOGUED PROCEDURE 


MEMBER NAME REACT 

//REACTRTV PKGC SV^K=SYS0A,WKSPAC£=8,PRSPaCE=8sOPT== 

//* 

//» PROCEDURE TO EXECUTE *RETRlcVAL» PORTION OF 'RE-ACT* 

WKSPaCE = SORT WORK SPACE 

//* PRSPACE = SPACE FOR PRODUCT WORK FILE, SHOULD BE 5 TIMES WKSPACE 
//»= WKSPACE AND PRSPaCE SHOULD ONLY BE CODED FOR VERY LARGE REQUESTS 
//^ OPT IS THE FARM PARAMETERS FOR REACT4 — SEE USERS MANUAL 
//* 

REACT!.CARDSIN DD CARO REQUIRED FOR DATA NAME TABLE AND REQUESTS 

REACTZ.PRINTER DD CARD OPTIONAL FOR LISTING OF DATA NAMES 

//^ REACT4.INFILE DD CaF:0 REQUIRED TO DEFINE YOUR MASTER FILE 

//* REACTS.TAPEXX DO CARD REQUIRED ONLY FOR TAPE OR DISK PRODUCTS 

//4 WHERE XX = RE-ACT REQUEST NUMBER 

//^ REACTS.DATECARD DD CARD OPTIONAL TO OVER-RIDE IPL DATE 
//* 

//!»: # if If. if if 

//REACTl EXEC PGM=REACT1 

//STEPLIB DD DSN=SYS3.REACT,OISP=SHR 

//DISK DD DSNAME=CCREACT1,D1SP=(,PASS),UNIT=SYSDA, 

// SPACE=(6400,(20,20),RLSE),DCB=BLKSIZE=6400 

//* %^i^ig.-Sfifififilfilfififif if -Jf if if if if :^t^'^ififit ififif if ififif ^ 

/ 

//* THE FOLLOWING UD CARD DEFINES YOUR DATA NAME TABLE AND REQUESTS 

//if 

/ ^if ■t(.ifififififHfififi(.:i^ifif^ifififififififVififif ififififif-^ifii 

//CARDSIN DD DUMMY,DC6=BLKSI2E=6400 
//SORT! EXEC PGJ^^SORT,PARH= •CORc= 60000 • 

//SYSOUT DD SYSOUT^A 
//SYSUDUMP DD SVSOUT=A 

//SORTLIB DO DSN=SY£l.SORTLI3,DISP=SHR 
//SORTMSG DD SYSOUT=A,SPACF=(1694,{7)) 

//SORTIN DD DSN=&&REACTl,DlSP-(OLU,UELETe> 

//SORTWKOl DO UNIT==C,SWK,SPACE=4CYL, (LWKSPACEJ, ,CGNTIG ) 

//S0RTWK02 OD UNIT=ESWK,SPACE=(CYL,{LWKSPACE),,CONTIG) 

//S0RTWK03 DO UNIT=GSWK,SPACE={CYL,ICWKSPACE),jCONTIG) 

//S0RTWK04 DO UNIT=LSWK,SPACE-(CYL,(tWKSPACE),,CONTIG) 

//SORTOUT OD OSNaM£ = £(IR£aCT2,DISP = { .PASS 1 ,UNJT=SYSDA, 

// SPACE = {6400,(20,20)1 , 

// DCB=(RECFM=FB,LRECL=8Q,bLKSIZE=6400) 

//SYSIN DD DISP=SHR,OSN=SYS1.CONTROL(RCTSORT3) 

//REACT2 EXEC PGM=R£aCT2 

//STEPLIB OD DSN=SYS3.REACT,D1SP=SHR 

//SYSUDUMP DD SY5UUT=A 

//DISKIN 00 OSNAM£=«.SGRTl.SORTOUT,OISP=(OLD,DELETE), 

// DCB=(kECFH=FB,LRECL=eO,BLKSIZE=6400) 

//DISKOUT DO DSNAMe=£.£>REACT3,0ISP = ( .PASS) ,UNIT=SYSOA,SEP = DISKIN, 

// SPACE=(64d0,(10,10),RLSE>s 

// DCB=(RECrM=F8,LReCL=81,BLKSI2E=6480) 

//PRINTER DU SYSOUT =:A,0CB=(RECFM--FBA,LR£CL=133,BLKSIZE=665) 

//REACT3 EXEC PGM=REACT3 

//STEPLIB DD DSN=SYS3.REACT,DISP=SHR 

//SYSUDUMP DO SYSOUT=A 

//INFILE DO OSNAME=#.REACTZ.DISKOUT,DISP=(OLO,DELETE), 

// DCB={RECFM=FB,LRECL=BI,BLKSIZe=6480) 

//OUTFILl DD DSNAME=&£ReACT5,0ISP=(,PASS),UNIT=£YSOA, 

// SPACE-{CYL,1),DC0 = (RECFM = FB,LRECL = 15,BLKSIZE = 6OOO) 

//0UTFIL2 OD DSNAME=££REACT4,DiSP={,PASS),UNlT*SYSDA,SEP=INFILE, 

// SPACE=(CYL,(&PRSPACE,2)), 

// DCB=(RECFM=FB,LRECL=256,BLKS22E=6144) 

//PRINTER DD SYS0UT=A,DCB=(RECPM=FBA,LRECL=133,BLKSIZE=665) 


CO000100 
OCOOOl10 
CO000120 
00000130 
oooc"'a40 
00000150 
00000160 
00C0(>170 
000001faO 
00000190 
00000200 
00C0C210 
00000220 
00000230 
0 0 G 0 C' 2 4 0 
00000250 
00000260 
G0000270 
000002BO 
OC000290 
OC000300 
00000310 
C000G320 
v,H)000330 
00000340 
00GO0350 
00000360 
00000370 
O00v-C3£0 
000003 90 
OOOUO^OO 
00000410 
C0C0042O 
00000430 
CC000440 
00000460 
GOC00460 
OOC0047O 
G00004BO 
00000490 
00000500 
00000310 
CC0UU5 20 
000C0530 
00 0 C 0 5 40 
00000330 
00000560 
00000370 
00000580 
0OOOC390 
COOOGcOO 
000C0610 
00000620 
LOCOC'630 
00000640 
00000650 
00000660 
00000670 
00000660 
000CG690 
00000700 






(Continued) 
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3. CATALOGUED PROCEDURE (CONT.) 







//REACT‘^ EXEC PGMaR£ACT4,PARM=»i.0PT* 

//STEPLI8 DD DSN=SYS3.REACT,OISP=SHR 
//SYSUDUMP DD SYSOl)T=A 

//TABLES DO DSN AMt=*. REaCT3 .OUTFlLl,DlS P={OLD,DELETE), 

// DCB = {ReCEM=FB,LRECL = lT),aLKSIZE-6000i 

//OUTFILE DD OSMAME=*,RfeACT3.aUTFIL2,DISP=(MOD,PASS), 

// DCB=<RECFM=FB,LREtL=256vBLKSIZE=6144) 

//<c + sis * # 

//★ 

//* THE FOLLOWING QD STATEMENT DEFINES YOUR INPUT MASTER FILE 
//»#' 

//* « 4 ♦ at: 4 c 4 c 4 : ^ # 4 : 0 , # 4 c :tc « 4 c « ijc « « Its 4 e sec :)[ 3 tc 

//INFILE DD DUMMY 

//PRINTER DD SYSCiUT=A, DCS'-I RECFM=FBArLRECL=l33,BLKS IZE=665 ) 
//SORT2 EXEC PGM = SURT,PARM=^»CORe=6aOOO • 

//SYSOUT DD SYSOUT=A 
//SYSUDUMP DD SYSOUT=A 


//SORTLIB DO DSN=SYSI.S0RTLIB,D1SP=SHR 
//SORTMSG DD £Y$DUT=AvSPACE = ( 1694, (7) ); 

//SORTWKOl DD UNIT^CSWK,SPACE=tCYL,{LWRSPACEJ,.CONTIG) 

//SURTWK02 DD UNIT=LSWK,SPACE = (CVL,tt.WKSPACE),,CONTIG) 

//SCRTWK03 DD UNI T=SS WK,S PaCc=( GYL ,( LKiiS PACE ), ,CONTIG ) 

//S0RTWK04 DD UNIT=t;SWK,SPACE-(CYL, ( CWKSPACE ) , ,CONT IG ) 

//S0R1WK05 DD UNIT=LSWK.SPACE=(CYL,(SWKSPACE),.CONTIG) 

//S0RTWK06 DD UNIT=LSWK,SPACE={CYL,(LHKSPACE),,CONTIG) 

//SORTIN DD DSNAME=£&REACT4,DISP=(0L0.0ELeTE), 

// DCB={R£CFM=FB,LkECL=256*BLKSIZE=6144) 

//SORTOUT DD DSNAME=GLREACT6,DISP-(.PASS),UNIT=SYSDA, 

// SPACE=1CV^, IGPRSPACE,2> )i, 

// DCB = ( RECfM=FB,LRECL=256,iBLKSIZE=6144) 

//SYSIN DD DISP=SHR,DSN=SYS1.CONTROL(RCTSORT4) 

//REACT6 EXEC ?GM=REACT6 
//STEPLIb DD OSN=SY53.REACT,DISP=SHR 
//SYSUDUMP DD SYSDUT=A 

//INFILE DD OS:mAMF=4'-.S0RT2.SORTOUT,DISP = (OLD,DELETE} , 

// DCB=(RECFM=FB,LReCL = 266,BLKSlZE=6'144} 

//PRINTER DD SYSCUT=A,OCB=iRECFM=FB,LRECL=133.BLKSIZE=931) 
//PRINTERl DD SYSOUT = A,DCB = (RECFM=FC5 tLRECL = 133 ,BLKS IZE=93 1) 
//PRINTER2 DD SYS0UT=A,DCB=(RECFM=FB,LRECL=133,BLKSIZt=931) 
//PRINTER4 DD SYSOUT=A,DCB=(REGFM=Pb,LR6CLsl33,BLKSIZE=931J 
//PRINTER6 DD SYSOliT =A,0CB= (RECFMccaFb,LRECL=133 ,BLKSIZE=93I) 

//TAPEXX DD DUMMY TAPE PRODUCT, X>' = K£i(UEST IDENTIFICATION 

//DATECARO do dummy,0CBs:BLKSIZE-80 

//PUNCH DD SYSOUT=P,OC8-(R£CFM=FBA,LRECL=81,BLKSIZE=8IJ 


4. REFERENCE 

4,1 "RE-ACT System" manual. 


'v.,, - R 


OOCO071O 
C0000720 
00000730 
CO 00 07 AO 
00000750 
00000760 
00000770 
^ 000007BO 
v 0000C7 90 
* 00OC0800 
^ 00000310 
4 00000B20 
000008 30 
000008 40 
00000850 
oocoeeiso 

00000870 
00000880 
00000890 
00000900 
000C0910 
00000920 
00000930 
C0000940 
00000950 
CO000960 
00000970 
0C00G980 
CC000990 
00001000 
COCO1010 
000010 20 
00001030 
000010 40 
00001050 
iHOOOlUoO 
00001070 
00001080 
C0C01090 
COCO II00 
00001110 
00001120 
00001140 
00001150 
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TLSBINL - LIST THE CONTENTS OF THE TLS BIN TABLE 

1. GENERAL 

TLSBINL is a cataloged procedure which produces a formatted listing 
of the contents of the Tape Library System bin table by organization 
number. The program executed is TLSBINL which is documented in 
Division 2, Chapter 6, Section 6. 

2. SYMBOLIC PARAMETER 

An optional parameter, which supplies the PARM field to the TLSBINL 

program, may be specified to limit the bin table listing to one ^ 

location or to one organization within a location. 
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The format of this parameter is CHECK=LLDDDD where LL is an alphabetic 
location code and DDDD is a department number (numeric). The default 
is a blank which will provide a complete listing of the bin table, 

3. USING TLSBINL 

TLSBINL is invoked with an EXEC statement. 

// EXEC TLSBINL 

4. EXAMPLES 

4.1 In this example a complete listing of the bin table is requested. 

// EXEC TLSBINL 

4.2 In this example a listing of the bin table for location CB is 
requested. 

// EXEC TLSBINL,CHECK=CB 

4.3 In this example a listing of the bin table for organization WN9413 
is requested. 

// EXEC TLSBINL,GHECK=WN9413 

5. CATALOGED PROCEDURE LISTING 




//TLSBINL PROC CHECK= 

//STl EXEC PGM=:IEHL!ST»REGTnN=28K 
//SYSPRINF 00 OSN=££BIN,UNIT=OISK,DISP=C,PASS)7 
// SPACE=(TRK,(2,1)).0C8=8LKSIZE=968 

//DOl on UNIT=OISK,VOL=SER=SYSROl,OISP=OLD 

//SYSIN 00 01SP=SHR,DSN=PRD4.CONTROL!TLSBINL) 
//ST2 EXEC PGM=TLSBI NL,RFGI0N=14K,PARM=f;CHECK 
//STEPLie DO DSN=PR04,L0A0LIB,0ISP=SHR 
//IN DO DSN=&£;BIN,DISP = ( OLD,DELETE) 

//LIST 00 SYS0UT=A,DC8=BLKSIZe=968 


OOOOOlOO 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

OOOOIOOO 
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TLSBINL - LIST THE CONTENTS OF THE TLS BIN TABLE 





1. GENERAL 

TLSBINL is a cataloged procedure which produces a formatted listing 
of the contents of the Tape Library System bin table by organization 
number. The program executed is TLSBINL which is documented in 
Division 2, Chapter 6, Section 6. 

2. SYMBOLIC PARAMETER 

An optional parameter, which supplies the FARM field to the TLSBINL 
program, may be specified to limit the bin table listing to one 
location or to, one organization within a location. 

The format of this parameter is CHECK=LLDDDD where LL is an alphabetic 
location code and DDDD is a department number (numeric). The default 
is a blank which will provide a complete listing of the bin table. 

3. USING TLSBINL 

TLSBINL is invoked With an EXEC statement. 

// EXEC TLSBINL 

4. EXAMPLES 

4.1 In this example a complete listing of the bin table is requested. 

// EXEC TLSBINL 

4.2 In this example a listing of the bin table for location CB is 


// EXEC TLSBINL,CHECK=CB 


4.3 In this example a listing of the bin table for organization WN9413 
is requested. 

// exec TLSBINL, CHECK=WN94 13 

5. CATALOGED PROCEDURE LISTING 



//TLSBINL PROC CHECK= 

//STl EXEC PGM=IEHLIST,REG!ON=28K 
//SYSPRINf DO OSN=&tBIN,UNIT=OISK,DISP*(»PASS)t 
// SPACe=(TRK,C2,U)tOCB=BLKSIZE=968 

//OOl on UNITED!SK,VOL=5ER=SYSROl,DI5P=0LD 

//SYSIN 00 01SP=SHR,OSN=PRD4.CONTROL(TLSBINL) 
//St2 EXEC PGM=TLSBrNL»REGI0N=l4K,PARM=&CHeCK 
//STEPLie DO 0SN=PR04.L0A0LIB,DISP=SHR 
//IN DO DSN=S&BIN,DISP=(OLD,DELETE) 

7/LIST 00 SYS0UT=A,DC8=BLKSIZE=968 


OOOOOlOO 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 
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DPMPSIL - LIST THE CONTENTS OF THE PSI TABLE 

1. GENERAL 


DPMPSIL is a cataloged procedure which produces a formatted listing 
of the contents of the PSI table by organization number. The program 
executed is DPMPSIL which is documented in Division 3, Chapter 2, 
Section 2. 

2. SYMBOLIC PARAMETER 

An optional parameter, which supplies the PARK field to the DPMPSIL 
program, may be specified to limit the PSI table listing to one 
location or to one organization within a location. 

The format of this parameter is CHECK=LLDDDD where LL is an alphabetic 
location code and DDDD is a department number (numeric). The default 
is a blank which will provide a complete listing of the bin table. 


3. USING DPMPSIL 


DPMPSIL is invoked with an EXEC statement 
//EXEC DPMPSIL 

4. EXAMPLES 

4.1 In this example a complete listing of the PSI table is requested. 

//EXEC DPMPSIL 

4.2 In this example a listing of the PSI table for location CB is requested. 
// EXEC DPMPSIL,CHECK=CB 

4.3 In this example a listing of the PSI table for organization WN9413 
is requested. 

// EXEC DPMPSIL,CHECK=WN9413 


5. CATALOGED PROCEDURE LISTING 


//DPMPSIL PRHC CHECKS 

//SI 1 EXLL r-'GM = S0k7 ,PARM= *MSG= AP,LIST ,CnRF = MAX • f RF-&ION*60K 
//SDRILlb DD DSD=SYS1 . SORT LIBfDl SPsf.HR 
//SYS OUT DU SYS(?U7- A 

//SdRl KKOl nn DMl 1 -TM f.K tSP ACt-( TRKt ( 5) » »CnNT IG ) 

//SI'RTWKC2 DD ur4IT=-r;ISK,SPACE=(TKK,(5)»TCnNTIG) 

//5nKfWK03 DU I'M I=^DISK,SPACF = (TRK, (^) .fCnUiJG) 

//SORiWKO^^ DD l.‘HIT=DlSKrSP ACfc = < 1 KK, ( S) , , CUNT IG) 

//S0R7WK0S> OD U'I T=^n i S K , SP AC E = ( IRK , i *3) , , CDNT IG ) 

// SORT WKUG DD UN I T = D 1S K» SP AC t =11RK ,(*:>),» CONT IG ) 

//SOP.TJN DD DSN-PRDA.OPM.PSI ♦DISP-SHR 

//SC'RTDUT DD DSN= t F SI ,UNIT =D 1 SK ,D ISP--( ,PAS.S) ,SPACE= ( TRK t ( 6 ,11 *RLSE ) 

//SYSIN DD 0SN=PRD4.CONTROL(DPMPSIL),D1SP=SHR 

//ST2 EXEC PGM^DPMPS!L,REGI0N=12K»PARM=&CHECK 

//STEPLIB DO nSN=PRD4.LCADLlD,DISP=SHR 

//IN L'D DSN=£?SI ,D1SP=(0LD,DELETE) 

//LIST DO SYSOUT=A,DCe =^&LKSI 2E = lCt)9 


00000100 
00000200 
00 OC CL-00 
00000400 
00000''C0 

000006 on 

C0000700 
OOCOCROO 
00000900 
00001000 
0000 1100 
00001200 
000013CC 
00001400 
00001500 
0CG0160G 
00001700 
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WECDSK - CARD INPUT TO DISK 


1. GENERAL 

WECDSK is a cataloged procedure which facilitates use of the Western 
Electric utility program, WECT, for the transfer of card input from 
the job input stream to a disk data set and to catalog the data set 
under a user designated DSNAME, 

2. WECT OPTIONS 

2.1 WECT permits the user to specify one of three options, which are 
designed to meet the needs of systems interfacing with converted 

7080 systems as well as the current generation systems. The options are 
governed by the symbolic parameter ”REC” (Paragraph 3), which supplies 
a numeric value for the LRECL DCB parameter. The options are: 

Option A - This is generally used in conjunction with converted 
7080 systems and is equivalent to CTP04, a 1401 
card-to-tape program. Four blanks and a record mark 
character are generated at the end of each logical 
record. In addition, an incomplete block is filled 
with nines padding before the tape mark is written. 
Designating REC=85 selects this option . If this 
option is selected, the user must specify a numeric 
value for the BLK symbolic parameter (Paragraph 3). 

Option B - This option, selected by REC=81, generates a record 
mark character as the 81st byte of the output record. 

Option C - The 80 column card image is copied as an 80 byte 

logical record, with blocking as specified in the BLK 
symbolic parameter. Designating REC=80 selects 
this option . 

2.2 A message to SYSOUT, ddname SYSUT3, indicates the option selected 
and the card count. 

3. SYMBOLIC PARAMETERS 

There are ten possible symbolic parameters which the user may employ 
to control the characteristics and location of his output file. 


REG 

a ntimeric value 

for 

REGION. 

The default is 20. 

UNIT 

output device. 

The 

default 

is disk. 

DSN 

Data set name. 

The 

user must supply this value. 
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WEGDSK - CARD INPUT TO DISK (CQNT.) 


3. SYMBOLIC PARAMETERS (CONT.) 


VOL 


REC 

BLK 


FM 

AMT 

AMT 2 

DISP 


There are 3 options: if VOL is omitted the data 
set will be allocated to a "STOR” volume; if 
VOL=»REF=PRDn.DATA’ is used, a volume will be 
assigned via the catalog; if VOL=:’SER=vol8er’ 
is used, the specified volume will be used. 

a value for the LRECL parameter: use 80, 85 or 
81, The default is 80. 

a value for the BLKSIZE parameter. The default 
is 3120. This value must be a multiple of the 
REC parameter. 

The value for the RECFM parameter. The default 
is FB. 

The number of primary blocks to be allocated. 

The default is 100. (Enough for 3900 records.) 

The number of secondary blocks to be requested. 
The default is 25. 

Default disposition is ’(,CATLG)’. If you wish 
to record on an existing data set, specify 
’(OLD,KEEP)*. 


4. CAUTION 

Users must determine whether the old data set needs to be scratched 
and/or uncataloged before executing this procedure. 

5. CATALOGED PROCEDURE LISTING 


MEMBER NAME WECDSK 

//WECOSK PKOC REL;=20,UNI T-OISK, V0L=,FM=FB,RECs 80,BLK=3120, OOOOOOlO 

// Afn = 100,AMT2=25,DSN= •PK01.F.RH0KSDISP=M fCATLG) • 00000020 

//CDSK EXLC PGM=WECT,REG 10N=CREG.K 00000030 

//SYSUT3 DO SYSUUT=A,DCB=LR£CL=120 00000040 

//SYSUT2 DU UNI f=£UNI T,Dy^=CDSN,DlSP=tDISP,VOL=i;VOL, 00000030 

// UCB=(RECFM=aFM,LRECL=tKEC,BLKiIZE=£BLK), 00O00060 

// SPACE = (tbLK, (C AMT,£AMT2) ,f<LSE > 00000070 

//SYSUTI DO UDNaME-SYSIM OOOOCOBQ 
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WECDSK - CARD INPUT TO DISK (CONT.) 


6. EXAMPLES OF USE 

6.1 Example 1: Placing a data set on a "STOR" volume. The data set 
must have been scratched and/or uncataloged prior to executing 

this procedure. 

// EXEC WECDSK,DSN=»PRD4.ABC.CARDSIN’ 
data cards here 

6.2 Example 2: Placing a data set on a specified volume, 200 blocks 
of space requested, logical record length of 85, and a block- 

size of 3145 specified. 

// EXEC WECDSK,DSN=»PRD4.ABC.CARDSIN(+1)’,V0L='SER=PR0D11’, 

// AMT=200,REC=85,BLK=3145 
data cards here 

6.3 Example 3: Re-using an existing cataloged data set. 

//EXEC WECDSK,DSN='PRD4.ABC.CARDSIN',DISP='(0LD,KEEP)’ 
data cards here 

6.4 Example 4: Using the volume reference technique. If a copy 
of the data set exists, it must be uncataloged and scratched 

prior to executing this procedure. 

// EXEC WECDSK,DSN=’PRD4.ABC.CARDSIN’,V0L=»REF=PRD4.DATA’ 
data cards here 
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WETPCOPY > MULTIPLE FILE TAPE COPY 


1. GENERAL 

WETPCOPY is a cataloged procedure that facilitates the use 
of a tape copy program which copies an entire tape to the 
double end of file mark. Multiple file tapes may be copied 
with a single EXEC card. No rewinding occurs between files, 
WETPCOPY uses the standard OS open for the first file Indicated 
All other files have their HDRl and EOFl type records copied 
from the input tape with the exception of the serial number 
field: this field contains the output tape number, 

NOTE: Any data type records beginning with HDRl or EOFl 

would also have the output tape serial number moved 
to the serial number field. 

2. SYMBOLIC PARAMETERS 

2.1 WETPCOPY requires two symbolic parameters which are: 

SERI Serial number of the Input tape. 

DSNl DSNAME of the first file to be copied, 

2.2 WETPCOPY may have optional parameters which are: 


DISPl 

Disposition for the input tape, 
is (OLD,KEEP). 

The default 

NOl 

Input file number from which the 
to begin. The default is 1, 

tape copy is 

DISP2 

Disposition for the output tape, 
is (.KEEP) . 

The default 

N02 

Output file number. The default 

is 1, 

RTPD 

Retention period to be assigned 
tape. The default is 30. 

to the output 

DSN 2 

DSNAME of the first file copied. The default 
Is *,SYSUTl, i.e, the same DSNAME as the input 


data set. 


SER2 

Serial number of the output tape 
is SCRTCH. 

. The default 
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WETPCOPY ■» MULTIPLE FILE TAPE COPY (CONT«) 


3. USING WETPCOPY 

The procedure is invoked with an EXEC card and the required 
DSNl and SERI parameters and any optional parameters; 

// EXEC WETPCOPY,DSNl**xxxxx.xxx.xxxxxV,SERl*nnnnnn 

Restrictions: see note in paragraph 1. 

OUTPUT MESSAGES 

WETPCOPY results in one of two types of messages appearing 
in the SYSMSG data set immediately following the LIB message. 

***** SUCCESSFUL TAPE COPY ***** nn FILES COPIED 

or 

X**ERROR IN COPYING TAPE***** 

where x indicates a POSITION, R, or W meaning a positioning 
error, a read error, or a write error respectively. 

The condition code is set to zero for a successful completion 
and to 16 for any error, 

5. CATALOGED PROCEDURE LISTING 

//WETPCOPY PROG DlSPx=* (aLO»KEEPJ•fNOi=l»0ISP2=*(»KEEP)•♦N02*lf 
// «TPD = 30 jDSN2 = *=l‘.SYSUTi* ,SER2=SCRTCH 

//« COPY AN ENTIRE TAPE TO THE DOUBLE END-OF-FILE MARK 
//♦ J.R.MALLECK DEPT 7784 INDIAN HiLL 
//TCUPY EXEC PGM=TCOPY 

//ST H-IB 00 DlSP = SHR,DSN = PR0D04.UriLP&MS 

/‘SYbUTi DO UNIl=TAP£,DISP=(.OI$Plf LABEL=t8N01tSL) fDSN=8DSNl, 

// VQL=SER-6SER]l 

//SYSUT2 00 UNir = TAPE,DISP«l.DISP2,LAB6L=(tN02tSL»RETPD»8RTPD)» 

// DSN=iiDSN2,V0L=SEft*8SER2 


6. REFERENCE 

J. R. Malleck, Dept. 7784, Indian Hill 


00000010 

00000020 

OOOOOOBO 

00000040 

OOOOOOBO 

00000060 

00000070 

00000080 

00000090 

00000100 
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TRMDUMMY - CREATE A "DUMMY" DISK GENERATION DATA SET 


1. GENERAL 

1.1 TRMDUMMY is a cataloged procedure developed for application 
systems interfacing with Mini-WEDGE, The function of this 

cataloged procedure is to create a "dummy" transmission data set on 
disk and make an entry in the system catalog for the "dummy" data set 
to avoid an empty GDG condition (no cataloged generations) which would 
cause job failure. 

2* SYMBOLIC PARAMETERS 

2.1 TRMDUMMY requires one symbolic parameter and may have three 
optional parameters, which are: 

GDS, a required parameter, specifies the generation 
data group index (or base). 

REG, an optional parameter, specifies the maximum 
region. The default is lOK . Ordinarily this 
default will not need to be changed. 

VOLSER, an optional parameter, specifies the volume 
serial of the output disk pack. The default 
is the UNSTACK disk pack TRM002 . 

BLKSIZE, an optional parameter, specifies the DCB BLKSIZE 
value. The default is 1000 . 

3. ASP CONTROL CARD 

3.1 All jobs using TRMDUMMY for systems interfacing with Mini-WEDGE 
must include an ASP //*MAIN statement which includes the 

CLASS=UNSTACK and FAILURE=CANCEL parameters. 

4. USING TRMDUMMY 

4.1 TRMDUMMY is invoked by an EXEC statement 
// EXEC TRMDUMMY,GDS=»GDSindex' 


(Contined on next page) 
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TRMDUMMY (CONTD.) 


CATALOGED PROCEDURE LISTING 


NAME TR 
n fKMDUMMY PROC 
// 

// 

//* 

//^ 

//«■ 

//« 

//* 

//STEPl EXEC 
//STEPLIB 00 
//STbP2 EXEC 
//5YSPRINT DO 
//SYSUri DO 
//SYSUT2 DO 
// 

// 

//LASTSTEP EXEC 


MDUPf^Y 

GDS-*Gl)S.DSNAME.BASE *, XOOOOOiOO 

VnLSER = rRM002,BLKSIZfc = l000, XOOOOO^f'O 

RE&^IOK OOOOO'iOO 

GENERATE A DUMMY GOS(*l) IF A GDSlOl DOES NOT ALREADY 00000400 

EXIST 0COO05GJ 

OOOOOt-i/O 

SYKEGLIC oaRAMETER LGDS MUST SPECIFY THE GDG DATA SET 00000VOO 

NAME BASE OOOOOiiO'O 

PGM»TRMUST06»PARM=*CGDS*,HtGI0Ns6REG 00000900 

D.SNAME*PRD2 .LOADLieTDlSP=SHR OOOOICOC 

POM=v/tCUPVtCaNC = (n,EUtSrEPl ) »REGIUN-GREG OOOOIlOO 

SYSOUr=A 00001200 

DUMMY, DCb = ( KtCFM=sU,BLKSlZE=100O,LRECLal000) 00001300 

DSNAME=&GDS,i+I),D I SP=iNEW,CATLG, DELETE >, SPACE® { TRK,l >, XOOOOIAOCj 

VOLUMEs=SER = nVDLSER,UNIT=OlSX, XO0OO15OO 

DCB=(SYS2.DSCD,kECFM®U,3LKSIZE®£BLKSIZE» 00001600 

PGM®IEFbRi4,REGI0N®4K 00001700 




6. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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TRMHXSTl - EXTRACT BACKUP VOLUME INFORMATION FROM 
MINI-WEDGE HISTORY FILES 


1. GENERAL 

1.1 TRMHISTl is a cataloged procedure developed for application 
systems interfacing with Mini-WEDGE. The function of this 

cataloged procedure is to search the STACK and UNSTACK History files 
for backup volume serial information pertaining to previous trans¬ 
missions in the WEDGE system. This information may be used to recover 
transmission files if the need arises. 

2. USING TRMHISTl 

2.1 TRMHISTl is invoked by an EXEC statement and an override card 
as follows: 

// EXEC TRMHISTl 
. //STEPO.S0RTIN DD * 

(Data Cards - See Div. 2, Chap. 8, Sect. 2, Par. 5.2) 

2*2 If no input data is submitted, an ABEND U0404 will occur with 
the message *N0 INPUT SUBMITTED'. 

2.3 If the //STEPO.S0RTIN DD * override card is not used, an 
ABEND UOOl6 will occur. 


3. EXAMPLE OF USE 

3.1 Locate backup volume serial numbers from the STACK and UNSTACK 
History files. 

// EXEC TRMHISTl 
//STEPO.S0RTIN DD * 

S0CSPSSUMHWTMHWPH74 
U0CR0CHn®ARAM0C0C 74 


(continued on next page) 
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TRMHISTl (CONTD.) 


CATALOGED PROCEDURE LISTING 


MEMBER NAME TRMrilSTl 

//TRMHISTl PROC CURChG=* 7400174001C***L0C=PRDG2.R160=6400, 
// SWA=0500»SRTCTL-PRDZ 
//STEPO EXEC PGM=SQRT»KEGION=llOK 
//SySUOUMP DO sysout=a 

DD 0SNAME=SYS1«S0RTLIB»DISP*SHR 
DD SYS0UT=A, 


//SORTLIB 

//SYSQUT 

//^ 


COL. 

COL. 

COL. 

COL, 

COL, 


//* 

//* 

//* 

//♦ 

//* 

//«= 

//* 

//* 

//♦ 

//* 

//♦ 

//SORTIN 

//SQRTOUT 

// 

// 

//SORIWKOI 
//SORTWXOZ 
//S0RTWK03 
//SVSIN 
//* 


//STEPO.SORTIN DD * 


INPUT IS SUBMITTED VIA AN OVERRIDE 
TYPICAL TRANSACTIONS ARE SHOWN BELOW 
COL. 1 S OR U S=STaCK U-UNSTaCK 

2-3 location id example SHOWS ♦OC* 

4-13 FILE-IO 
14-15 SENDING LOCATION 
16-17 RECEIVING LOCATION 

18-19 YEAR (WILL EXTRACT ALL SERIAL NUMBERS FOR THIS YEAR) 
S0CSPS$UMHWT.MHWPH74 
UUCROCHORARAMOCQC74 


DD DUMMY 

DD UNIT=L)1SK,DSN=LLFINDERS,D1SP=(NEW,PASS,DELETE )f 
SPACE=(l6Ba»l2C0,yl0 ),RlSE), 

0CB = (KECFM=FB,bLKSIZE=16'>0,LRECL=0a0) 

DD UNll=DiSK ♦SPACE = (TRK,(LSWA,),tCONTlG) 

DD UNIT-DISK, SPAGE = (TRKt(CSWA,),,CONTIG) 

DD U.NIT=DiSK .SPACE =:(TRK,(C5WA, ) , .CONTIG) 

DD 01SP=SHR,USN=LSRTCTL.,CONTROL(TRMHISTl) 

SORT FIELDS=(1,23,CH,A) 

//STEPl EXEC PGM=TRM.HSTai,RE&ION=110K,PARM«»RM01CCURCHG. STIME*!^ 

//STEPLIB OD DSN=PftU2.LOADLIB,DiSP=(SHR,PASS) 

//♦ 

//« THIS PROG. IS USED TO EXTRACT BACKUP VOLUME SERIAL-S FROM 
//» THE stack and UNSTACK HISTORY FILES. 

//* 

//SYSCUT DD SYSOUT=A 

//FINDERS DO UNlT=Dl$K,DSN=LCFiNDERS,DISP=(OLD,DELETE,DELETE), 

// DCB=(RECr-M=FB,DLKSlZE=1600,LRECL = 030) 

//STaCKMST DD UNI)=TAPc, 

// OS^4=£.LOC..rRM.STACK. hISTURY(*0),DISP=OLD, 

// DC&=(SYS2.DSCB,RELFM=FB,BLKSlZE=CKi60,LRECL=l60) 

//UNSTAMST OD UNIT-TaPE, 

// QSN = £1LUC-.TRM.UNSTACK.HISTORY(+A} ,oisp=:OLD, 

// DCB=(SYS2.DSCB,RECFM=FB,BLKSlZE=&H160,LRECL=loC) 

//(OEXTFB OD SYSUUT=A,DLt=(bLKSiZE=G931,LkECL=133,KECFM=FB) 

//cBEXTFB DD DUMMY,SYSOUT=A,DCB=(BLKSIZE=C931,LRECL=133, RECFm=FB) 

//CSEXTFB DD DUMMY,SYSOUT=A♦DCB=(BLKSIZE=0931,LReCL=133,RECFM=F&) 

//JJEXTFB DD DUMMY,SYSOUT=A,DCB=(BLKSIZE=0931,LRECL-133,RECFM=FB) 

//HMEXTF6 DD DUMMY,SYSUUT=A,OCB=(BlKSIZE=G93I,LRECL=133,RECPM=FB) 

//HWEXTFB DD DUMMY , SY SlJUT=A , DCB= ( BLKSiZE=C93i, LRECL=133, RECFM=FB ) 

//IHEATFB DD DUMMY,SYSOUT=A,DCS=(&LKS1ZE=0931, LRECL = 133, RECFM = FB) 

//lEExTFB DD DUMMY,SYS0UTs=A,DCB=(BLKSIZE=0931,LRECL = 133,RECFM=FB) 

//MGEXTFB DD DUMMY ,SYSOUT»A,OCB-( BLKSIZ£i=093l,LRECL=133, RECFM=FB ) 

//UCEXTFB DO DUMMY,SYSOUT=A,DCB»(BLKSIZ£*0931♦LR£CL»133,RECFMsFB) 

//UHEXTFB DD DUMMY,SYSOUT=A,0C8=(BLKSIZE=0931,LRECL*133,RECFM*Fa) 

//VCEXTFb DD DUMMY,SYS0 uT=A,DCB={BLKSIZE=0931,LRECL=133,R£CFM=FS) 

//WNEXTFB DD DUMMY,SyS0UT=A,DCB={DLKSIZE=09il,LRECL-133,RECFMsF3) 

//WORKFILE OD UNn=DlSK,DSN=CWORKFlLE, 

// SPACE=(£;RL60,(2dO,010),RLSE), 

// 0C8s(RECFMsFB,bLKSIZE=tlRl6a,LRECL*=l60) 

//« > LAST OF PROC TRMHISTl 


00000001 
00000101 
C000C201 
00000301 
00000401 
00000501 
00000601 
OOCC07C1 
00000801 
00000901 
COOOlOOl 
00001101 
00001201 
00001301 
OC001401 
C0C01501 
00001601 
00001701 
00001801 
OOOC1901 
00002C01 
00C02101 
000022 01 
00002301 
C0GC24C1 
000C2501 
00002601 
00002701 
00C028O1 
00002901 
00003001 
00C031C'l 
000C32O1 
000033 01 
00003401 
00003501 
00003601 
00003701 
00003801 
00003901 
00004001 
00004101 
0G0O42O1 
C00C43C1 
O00O44O1 
00004501 
00004601 
0O0C4701 
00004801 
00004901 
00005001 
00005101 
000052C1 
00005301 
00005401 
00005501 
00005601 
00005701 
00005801 


5. REFERENCE 


Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 



Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


103 


Division 3 Chapter 5 
Section 1 Appendix BK 
Issue 1 Date 04/25/75 


TRMRECVR - TRANSMISSION FILE RECOVERY 




V- j 


1. GENERAL 

1.1 TRMRECVR is a one-step cataloged procedural that may be used to 
recover selected transmission files from any data set containing 

multiple transmission files that conform to the standards of Cl 95.183, 
Section 35. The backup and unmatched data sets of the WDC Mini-WEDGE 
System are examples of data sets that could be used. 

2. USING TRMRECVR 

2.1 TRMRECVR is invoked by an EXEC statement coded: 

// EXEC TRMRECVR,DSN=’transmisSion.dsname’ 

2.2 The following DD statements must be included to execute the procedure; 

//STEPl.SYSUT2 DD (parameters describing the recovered data set) 
//STEPl.SYSIN DD * 

(Select cards describing transmission files to be recovered - 
See Div. 2, Chap. 8, Sect. 2, Par. 6) 

3. EXAMPLE OF USE 

3.1 // EXEC TRMRECVR, DSN=»PRDG2.TRM. UNSTACK. BACKUP. G0086V00* 

//STEPl.SYSUT2 DD (appropriate parameters) 

//STEPl.SYSIN DD * 

Select cards 

4. CATALOGED PROCEDURE LISTING 



MEMBER NAME TRMRECVR 
//TRMRECVR PROC DSN=‘ERROR* 

//» RECOVERS TRANSMISSION FILES FROM BACKUP OR 

//* UNMATCHED DATA SETS. THE USER MUST SPECIFY 

//♦ THE DSNAME OF THE INPUT FILE IN THE DSN 

//♦ PARAMETER OF THE EXEC CARO AND SUPPLY DD 

//♦ OVERRIDE Caros ~ SYSUT2-F0R THE OUTPUT FILE 

//V - SYSIN-FOK CONTROL CAROS IN 

//* EXAMPLE- 

//* // EXEC TRMkECVR»USN=*PRUG2.TtlM,UNST ACK.BACKUP.GCO06VOO* 

//«?< //STEPl.SYSUT2 OD DSN«PR D2.TRM.RECCiVEKOt DISP*=.•• • 

//♦ //STEPl.SYSIN OD ♦ 

//♦ 

//♦ EXAMPLE DSNAME OF THE FILE TO BE RECOVERED FROM (INPUT )- 

//* PRPG2.TRM.UNSTACK.BACKUP 

tfv PR0G2.TRM.UNSTACK.MERGED.BACKUP 

PRDG2.TRM,UNSTACK,UNMATCH 
//♦ PRDG2.rRM.STACK.CUM INPUT 

//* 

//STEPl EXEC PGM=TRMUST05fREGlON=^0K 
//STEPLIB do DSNAMe = PRD2.LOADLIB,DlSP*=SHR 
//SYSUDUMP DD SYSOUT=A 
//RCVRYRPT DO SYSOUT^A 
//SEARCMIN DO DDNAME=SYSUT1 
//SYSUTl DD OSNAME=t.DSN»DlSP«SHR 
//RCVKYOUT DD DDNAMEsSYSUTa 
//CNTLCRDS OD D0NAME=SYSIN 


00000100 
O0OG02OO 
OUOOOBOO 
00000400 
(UtOOOSOO 
000006UO 
00000700 
OOOOOfaOO 
00000900 
00001000 
0000 i 100 
00001200 
00001300 
00001400 

ooooisoo 
00001600 
00001700 
noncuaoo 
one019 00 

OOOO1920 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
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5. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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TRMSTKAA - COPY APPLICATION SYSTEM OUTGOING TRANSMISSION " 

DATA SET TO STACK DISK PACK 


1. GENERAL • . . • 

1-1 TRMSTKAA is a cataloged procedure developed for application systems 
interfacing with Mini-WEDGE. The function of this cataloged 
procedure is to move outgoing transmission data files from an application 
system data set onto the STACK disk pack TRMOOl- 

2. SYMBOLIC PARAMETERS 

2.1 TRMSTKAA requires two symbolic parameters and may have three 
additional parameters, which are: 

LOG, a required parameter, specifies the source location, 
for example HW, OC, OH, etc, 

INPUT, a required parameter, specifies the data set name of’ 
the input data set. The paraineter must be enclosed in 
apostrophes if the name is indexed (contains periods). 

This data set is assumed to be cataloged and on disk or 
standard label tape. If these assumptions are not true, 
appropriate overrides must be entered via a 
//STEPl.SYSUTl DD card. 

REG, an optional parameter, specifies the maximum REGION size. 
The default is 2QK. Ordinarily this default will not 
need to be changed. 

SPACE, an optional parameter, specifies an estimate of the 

number of 3330 tracks necessary to hold the data being 
transferred. The default is 10 tracks , which has a' 
Capacity of 110 blocks, 1000 characters in length,, 
in the initial allocation. The value specified for 
SPACE is also used for secondary allocation. ' ' 

j ? « * « 9 ^ * 

BLKSIZE, an optional parameter, specifies the maximum blocks’iVe of 
the transmission file being copied^ The default Is 1000 . 


3. ASP CONTROL CARD 

3.1 All jobs which use TRMSTKAA must use the CLASS parameter on the 

ASP //*MAIN statement. This parameter must specify the transmission 
class assigned to the remote location and is of the form CLASS=X3^WEDGE 
where xx is the source location, for example HW, OG, OH, etc. 
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TRMSTKAA (CONTD.) 

4. USING TRMSTKAA 

4.1 TRMSTKAA is invoked by an EXEC statement 

// EXEC TRMSTKAA,L0C=HW,INPUT=VIN.DSNAME* 



5. CATALOGED PROCEDURE LISTING 




MEMBER NAME TRMSTKAA 
//TRMSTKAA PROC REb=20Kt 


// 

// 

// 

// 

//* 

//* 

//STEP! EXEC 
//SYSPRINT DD 


//SYSUTl 

//SVSUT2 

// 

// 

// 

// 

//♦ 

//* 

//* 

//* 

//» 

//# 

//♦ 

//» 

//« 

//♦ 

//♦ 


DO 

DO 


LQC-XX, SOURCE LOCATION (SEE LIST BELOW 

SPACe=iO* OUTPUT SIZE ESTIMATE (TRKS) 

BLKSIZE-lono, MAXIMUM BLKSIZE 

INPUTSiinpuT.DSNAME» DSNAMfc OP INPUT PATa SET 

COPY TRANSMISSION PILE FROM APPLICATION DATA SET TO 
LOCATION CDS FOR STACK INPUT 
PGM=WECOPY,REGION=&REG 
SYS0UT=A 

DSNAME=HNPUT,piSP=(SHR,KEeP) ,DC6*ER0PT=A6E 
OSNAMt=PKDGZ.TRM,STACK.INPUT.LLUC.(♦!)* 

SPACE={TRK,ttSPACEfLSPACE),RLSE)t 

UNIT=DiSKfYaLUM£=SERsTRM001,DISPa(N£WfCATLG*DELETE»I 
DCB#(S YS2 .DSCfa tOSORGsPS,RECFM=U,BLKSIZE=£8LKSIZE, 
EHOPT=A8EJ 

SAMPLE EXECUTE CARD - 

// EXEC TRMSTKAAtL0C=0rt,lNPUT=*PRDG19.XMM.TRANTAPE(0)» 

INPUT IS ASSUMED TO BE CATALOGED AND HAVE DCB»RECFM»U 
INPUT IS ASSUMED TO BE ON DISK OR STANDARD LABEL TAPE 
IF INPUT ASSUMPTIUNS ARE NOT TRUEf APPROPRIATE 
OVERRIDES MUST BE ENTERED VIA A //STEPi.SYSUTl DD CARD 

VALID LOCATIONS - CB* OJ. HW» LEt MG» OC. QHt C VC 
TMiS PROCEDURE UPDATED 1/13/Y5 TO INCLUDE OCBsEROPT=ABE 


XOOOOOICO 
)X00000200 
XOOOC03GO 
XO0C004O0 
OOOOOBOO 
00000600 
00000700 
00000800 
00000900 
00001000 
XOOCOllOO 
X00001200 
X000013C0 
X00001400 
00001600 
00001600 
O0CO17OO 
00001800 
00001900 
00002 000 
00002100 
00002200 
0OOC230O 
00002400 
00002500 
00002600 


6. REFERENCE 

Division 2, Chapter 8, Section 2, WDC WEDGE Interface System. 
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I ' 

PLICKC - PL/I CHECKOUT COMPILE 

1• GENERAL 

1.1 PLICKC is a one-step cataloged procedure which 
translates one or more PL/I procedures and retains 

the link-edit stubs on temporary data sets. 

1.2 This cataloged procedure is intended for use in 
conjunction with the procedures PLICKL^ PLICKLGj 

or PLICKG. 

2. USING PLICKC 


2.1 PLICKC may be Invoked by an EXEC statement. 

// EXEC PLICKC 

2.2 The following DD statement which defines 

the source input must be added to the procedure. 

//PLI.SYSCIN DD * 
source program 

/ * 

3. CATALOGED PROCEDURE LISTING 


O' 


MEM6ER NAME PLICKC 
//PLICKC PROC 
//PLI EXEC PGM=I 

//STEPLIB DD DSN=SYS2 
//jYSPLlC DD DSN=SYS2 
//SYSPRINT DD SYSOUT 


//i»YSLIN DD OSNAME 
// SPACE= 

//SYSUTl DD DSNAHE 
// spAce= 

//SYSITEXT OD DSNAM 
// SPACE* 

//SYSFORM DO OSNAME 
// SPACE* 

//SYSUT2 DD DSNAME 


EN5I2NS»KEGION*l50KtPARMs*NORUN,OBJECT* 

.PLI.LINK,DISP=SHR 

.PL1.LINK,DISP*SHR 

=A,DCB*(ReCFM«VBA,LReCL*125,BLKSIZe*629) 
=eGLOADSET,UNIT*SYSOA,DISP=(MOD,PASS), 
(80,(500,100)} 

=LCSYSUT1,UNIT=SYS0A,DCB*BLKSIZE=1024, 
(1024,(60,60),,C0NTIG) 
=CCTexT,UNIT*SYSDA,OlSP*(MOD,PASS), 

(1024,(10,10,10)),0CBaBLKSIZE*l024 
=CSSYSFORM,UNITESYSDA,DC8sBLKSIZE*400, 
(80,(250,250)) 

=e£SYSUT2,UNIT«SYSDA,SPACE»(80,(250,250)) 


00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
OOOOIOOO 
0000IlOO 
00001200 
00001300 
00001400 
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PLICKCG - PL/I CHECKOUT COMPILE, LOAD AND GO 


; I 


1. GENERAL 

1.1 The PLICKCG is a two-step cataloged procedure 
which first translates one or more PL/I source 

programs and retains the intermediate texts (SYSITEXT) 
and the link edit stubs (SYSLIN) on temporary data 
sets. The second step processes the link-edit stubs 
with the loader and then executes the resulting load 
module, 

1*2 A listing is always produced for translation 

and execution (SYSPRINT), A listing will also 
be produced for the loader (SYSLOUT) if the PRINT 
loader option applies. 

2. USING PLICKCG 

2*1 PLICKCG may be invoked by an EXEC statement. 

// EXEC PLICKCG 

2.2 The following DD statement which defines the 
primary input for the compiler must be added to 

the procedure. 

//PLI.SYSCIN DD * 
source program 
. /* ■ 

2*3 A DD statement must be added for input data. 

//GO.SYSIN DD * 
input data 

7 * 


1 I 


7 ^ 





’‘}i 


continued 
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PLICKCG - PL/I CHECKOUT COMPILE, LOAD AND GO (CONT.) 
3. CATALOGED PROCEDURE LISTING 

MEMBER NAME PLIGKCG 
//PLICKCG PROC 

//PLI EXEC P&M=IEN512NS,REGI0N=150K,PARM=»NGRUN,OBJECT* 

//STEPLIB DD DSN=SYS2.PLI.LINK,0ISP=SHR 
//SYSPLIC DO DSN=SYS2.PL1.LI,NK,DISP=SHR 

//SYSPRINT DD SYS0UT=A,DCB-(RECFM=V6A,LReCL=l25, BLKS I2E=629) 
DSNAME=6,&LQAOSET,UNIT=SYSDA,DISP=IMaD,PASS) , 
SPaCE=(80,(500,100)) 

DSNAME=^LSYSUT1,UNIT=SYSDA,DCB=3LKSIZE=1024, 
SPACE-(1024,T60,60) ,,C0NTIG) 

DSNAME=f:tTEXT,UNIT = SYSuA,DISP = {MOD, PASS), 
SPACe=(1024,(10,10,10)),DCB=aLKSI2E=1024 
DSNAM£=L&SYSFORM,UNiT=SYSOA,DCB=BLKSIZE=4O0, 
SPACE=(80,(250,250)) 

0SNAME==L&SY$UT?.,UNIT=SYSDA,SPACe-l80, (250,250) > 

EXEC PGM=LOADER,PARM=*MAP,LeT* ,REGrQN=!l50K, 
C0ND-t9,LT,PLI) 


DD 


//SYSLIN 
// 

//SYSUTl 
// 

//sysitext od 
// 

//SVSfORM 
// 

//SYSUT2 
//GO 
// 


DD 


DD 


DD 


//STEPLIB DO DSN = SYS2.PLI.LINK,DISPi=SHR 
//SYSLOUT DD SYSOUT=A 

//SYSPLIC DO DSN=SYS2.PLI.LINK,DISP=SHR 

//SYSPRINT OD SYS0UT=A,DCB={HECFM=V3A,LRECL=125,BLKSIZE=629) 
//SYSUTl OD 0SNAME«EGSYSUT1 ,UNIT=SYSDA,QCB=BLK.SIZE=1024, 

// SPACE={i024,(60,60),,C0NT1G) 

//SYSITEXT DD OSNAME=&STEXT,DISP=10LD,DELETE) 

//PLIOUMP OD SYS0UT=A 

//SYSLIN DO OSN=&&LOADSET,DISPs{OLD,DELETE) 


4. REFERENCE 

4.1 "OS PL/I CHECKOUT COMPILER 
SC33-0007. 


00000100 

00000200 

00000300 

00000^00 

00000500 

00000600 

00000700 

00000800 

00000900 

OOOOIOOO 

oooonco 
00001200 
00001300 
00DO1400 
00001500 
000016 00 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
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PLICKCL -PL/I CHECKOUT COMPILE AND LINK 


1. GENERAL 

1.1 PLIGKCL is a two-step cataloged procedure which first 
translates one or more PL/I procedures and then produces 

one or more load modules on a temporary data set (SYSLMOD) with 
the linkage editor. 

2. USING FLICKCL 

2.1 PLICKCL may be Invoked by an EXEC statement. 

// EXEC PLICKCL 

2.2 The user must add a DD statement for the primary input 
for the compiler. 

//PLI.SYSCIN DD * 
source program 

/* 

2.3 The user must add a SYSLMOD DD statement if the load 
module is to be placed in a permanent library. 

//LKED.SYSLMODDD DSNAME-LOAD(MEMBER),DISP-OLD 

3. CATALOGED PROCEDURE LISTING 


MEMBER name 

PLICKCL 


//PLICKCL 

PROC 

00000100 

//PLI 

EXEC PGM=IEN512NS,REGI0N=150K,PARM=»N0KUN,OBJECT* 

00000 200 

//5TEPLI3 

DO 

DSN=SYS2.PLl.LlNK,DiSP=SHR 

00000300 

//SYSPlIC 

DO 

DSN=SYS2.PLI.LINK,DISP=SHR 

00000400 

//SYSPRINT 

DD 

SYSOUT=A,DCB={RECFM=VBA,LRECL=125,BLKSIZE=629) 

00000500 

//SYSLIN 

DD 

DSN AME =e. £ LOADS ET ,UN I T=S YSDA, DISP = t MOD , PASS) , 

00000600 

// 


SPAGe={80,(500, SOO)) 

00000700 

//3YSUT1 

DD 

DSNAME=£;£SYSUT1,UNIT=SYSDA,DCB=BLKSIZE=10 24, 

00000800 

// 


SPACE={1024,(60,60),tCONTIG) 

00000900 

//SYSITEXT 

DD 

DSNAME=££TEXT,UNIT=SYSDA,DISP={M0D,PASS), 

00001000 

// 


SPACE=(1024,(10,10,10)),DC8=BLKSIZE=1024 

0000i100 

//SYS FORM 

DD 

DSN aME =£ £SYSF0RM,ON IT=S YSDA,DCB=BLKSIZE=400, 

00001200 

// 


SPACE=180,(250,250)) 

00001300 

//SYSUT2 

no 

0SNAME=££SYSUT2,UNIT=SYSDA,SPACE=(a0,(250,250)) 

00001400 

//LKED 

EXEC PGM=I£WL,PARM=*XREF,LIST',REGiQN=l50K, 

00001500 

// 


COND=(9,LT,PLI) 

C0001600 

//SYSLIN 

DD 

DSNAME=££LOADSET,DISP=(OLD,DELETE) 

00001700 

// 

DO 

D0NAME=SYSIN 

00001800 

//SYSLMOD 

DD 

□SNAMe=££GOSET{GO),UNIT=SYSDA,01SP=(M0D,PASS), 

00001900 

// SPAC 

£=(1024,(50,,1)) 

00002000 

//SYSUTl 

DD 

DSNAME=££;SYSUT1 ,UNIT=SYSOA,DC8=BlKSIZE=1024, 

00002100 

// 


SPACE=(1024,(200»20>) 

00002200 

//SYSPRINT 

DD 

SYS0UT=A / 

00002300 

REFERENCE 

' 


”0S PL/I 

CHECKOUT COMPILER: PROGRAMMER’S GUIDE*’ 

SC33-0007. 
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PLICKCLG - PL/I CHECKOUT 

COMPILE. 

LINK-EDIT. AND GO 









1. GENERAL 

1.1 PLICKCLG is a three-step cataloged procedure which compiles 
one or more PL/I source modules, processes the translated 

source modules with the linkage editor and produces one or 
more load modules on a temporary data set (SYSLMOD), The third 
step executes the load module stored with the member name GO, 
specified in the DSNAME parameter for SYSLMOD, 

1.2 The DDNAME parameter in the second DD statement for 
SYSLIN in the procedure step LKED allows you to concatenate 

additional modules, and also control statements, to the primary 
input data set for the linkage editor, by specifying their data 
sets in one or more new DD statements, with the qualified 
ddname LKED.SYSIN for the first, and blank name fields for 
the rest. 

2. USING PLICKCLG 

2.1 PLICKCLG may be invoked by an EXEC statement, 

// EXEC PLICKCLG 

2.2 The following DD statement must be added to supply 
source input for the compile step. 

//PLI.SYSCIN DD * 
source program 

/ * 

2.3 The following DD statement must be added to supply 
input for the GO step, 

//GO.SYSIN DD * 
input data 
^ /* . 

2,A If the user intends to execute the same load module 

more than once, you must override this DD statement for 
SYSLMOD to prevent the load module from automatically being 
deleted, for example: 

//GO.SYSLMOD DD DISP*^(OLD,PASS) 
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PLICKCLG - PL/I CHECKOUT COMPILE. LINK EDIT AND GO (CONT. 


3. CATALOGED PROCEDURE LISTING 


member NAME PLICKCLG 
//plickclg prgc 

//PLI EXEC PGM=IEN512NS,REGION=150K,PARM=»NORUN,OBJECT* 

//STEPLIB DO DSN=SYS2,PLl.LiNK,DISP=SHR 
//SYSPLIC OD DSN=SYS2.PL1.LINK,DISP=SHR 

//SYSPRINT OD SYSOUr=A,OCB=J R£CFM=VBA tLR£CL=125,BLKSIZE-6 29 ) 
//SYSLIN DO DSNAME=CGLOAOSET,UNIT=SYSDA,DISP=tMOD,PASS)t 
// SPACE=(80,(500,100)) 

//SYSUTl 00 OSNAME=GCSYSUTl,UNIT=SYSDA,OC0 = BLKSI.iE=lO24, 

// SPACE=(1024,(60,60), ,CONTIG ) 

//SYSITEXT DO DSNAME=(1 GTEXT, UNIT=SY$DA,DI SP-{MOD, PASS ) , 

// SPACE=(1024,(10,10,10)),DCB=BLKSIZE=1024 

//SYSFORM OD DSN AME =£11 SYSFURM , UN I T=S YSDA , OCB=BLKS 12 E=400 , 

// SPAC6=(80,(250,250)) 

//SYSUT2 DO bSNAM£=&&SYSUT2,UNIT=SYSDA,SPACE=(80,(250,250)) 
//LKEO EXEC PGM=I£WL,PARM=*XREF,LIST*,REGI0N~150K, 

// CaND=(9,LT,PLI) 

//SYSLIN DO DSNAME=G£L0ADSET,DISP=(0L0,DELETE) 

// ” DO ODNA.ME-SYSIN 

//SYSLMOD OD DSN AME=£1 CGOSE T ( GO ) , UN IT=SYSDA,DI SP= {MOD,PAS S) , 
// SPACE = ( 1024, (50, , 1) ) 

//SYSUTl DO DSNAME=:S,£SYSUT1,UNIT=SYSDA,0CB=BLKSIZE=1024, 

// SPACE=(1024,(200,20)) 

//SYSPRINT DO SYSOUT=A 

//GO EXEC PGMs:’i‘.LKEO.SYSLMOD,KEGI0N-150K, 

// COND=( (9,LT,PLl),(9,LT,LKED)) 

//STEPLIB UO DSN=SYS2.PL1.LINK,DISP=SHR 
//SYSPLIC DO D5N=SYS2*PL1.LINK,DISP=SHR. 

//SYSPRINT DO SYSaUT=A,DCb=(RECFM=VBA,LRECL=125,BLKSI2E=629) 
//SYSUTl DO DSNAME=£lSSYSUTl,UNIT=SYSDA,0C8=6LKSI2Es:1024, 

// SPAGE=(1024,(60,60),,CONTIG) 

//SYSLMOD DO □SNAME=(lGGOSET,DISPa(OLO,DELETE) 

//SYSITEXT DO DSNAME=t£TeXT,OISP-(OLD,DELETE) 

//PLIDUMP OD SYS0UT=A 


OOOOOlOO 

00000200 

00000300 

OOC00400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 



A. REFERENCE 


4.1 "OS PL/1 CHECKOUT COMPILER: PROGRAMMER’S GUIDE" SC33-0007. 







Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


Division 3 Chapter 5 
113. Section 1 Appendix BQ 

Issue 1 Date 9/26/75 



PLICKG - PL/I CHECKOUT LOAD AND GO 


1, GENERAL 

1.1 PLICKG is a one-step cataloged procedure which processes 
the primary Input with the loader and executes the 
resulting load module. 




2. USING PLICKG 

2.1 PLICKG may be executed by an EXEC statement. 

// EXEC PLICKG 

2.2 The user must always add a DD statement defining 
the primary input data set. 


//GO.SYSLIN DD DSNAME«OBJECT,DISP«SHR 

2,3 The user must always add a DD statement defining 
the primary text data set. 

//GO.SYSITEXT DD DSNAME-TEXT, DISP-SHR 

3. CATALOGED PROCEDURE LISTING 


MEMBER NAME PLICKG 
//PLICKG PROC 

//’GO EXEC PGM=L0ADER,PARM=»MAPtLET»*REGI0NsI50K 

//GTEPLIB OD DSt'J=SYS2.PLl.LINK»DISP=SHR 
//SYSLIN DO DDNAME=SYSIN 
//SYSLOUr DO SYSOUT=A 

//SYSPLIC 00 DSN:5SYS2.PLI.LINK,DISP=SHR 

//SYSPRINT DD SYS0UT=A,DCB*(RECFM=VBA,LRECL=125tBLKSIZes629) 
//SYSUTl DO DSNAMe=&CSYSUTl,UNIT=SYSDA,DC3«BLKSIZEsl024, 

// SPACE={lO24,(6O,6O»,tC0NTlGJ 

//PLIDUMP DD SYSOUTsA 


OOODOIOO 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

OOOOIOOO 


^ 4. REFERENCE 


4.1 "OS PL/I CHECKOUT COMPILER: PROGRAMMER’S GUIDE" SC33-0007. 
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FLICKI - PL/I CHECKOUT AND GO 


1. general 


1.1 PLICKI is a one-step cataloged procedure which 

Invokes a load module which includes one or more 
link edit stubs produced by the translation stage of 
the checkout compiler. 

2. USING PLICKI 


2.1 PLICKI may be invoked by an EXEC statement. 
// EXEC PLICKI,LOAD-xxx 


where xxx must be the name of the load module or 
a backward reference to the DD statement defining the 
load module data set in a previous Step. 

2,2 The user must always add a DD statement defining 
the intermediate text data set (SYSITEXT) for the 
procedure step GO, 


2.3 If the load module being executed is in a non-system 
(i.e> SYSl.xxxx) library a // STEPLIB DD card is 
nesded to point to the data set where the load module 
resides,. 

3. cataloged PROCEDURE LISTING 


MEMBER MAME PLICKI 
//PLICKI PRQC 

//GO EXEC PGM = eLL0AD,REGinN=150K 

//5TEPLIB DD DSN=SYS2.PLl.LINK,DISP=SHR 
//SYSPLIC DO DSN=SYS2.PL1.LINK»DISP=SHR 

//SYSPRINT DD SYSOUT=A,DCB=(RECFM=VBA,LRECL=125iBLKSI2E=629> 
//SYSUTl DD DSNAME=£CSYSUT1,UNIT=SYSDA,DCB*BLKSIZE=1024, 

// SPACE=(1024,(60,60),,C0NTIG) 


oooooioo 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 


4. REFERENCE 

4.1 ”0S PL/I CHECKOUT COMPILER: PROGRAMMER'S GUIDE*^ SC33-0007. 
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PLICKLG - PL/I GHECKODT LOAD AND GO 


1. GENERAL 

1*1 PLICKLG is a two**step cataloged procedure which 

first link edits input object code into load modules 
on a temporary data set (SYSLMOD) and then executes the 
load module, 

2. USING PLICKLG 

2.1 PLICKLG may be executed by an EXEC statement, 

// EXEC PLICKLG 

2.2 The user must always add a DD statement defining 
the input to the linkage editor. 

either 

//LKED.SYSLIN DD DSNAME«OBJECT 

. or 

//LKED.SYSIN DD DSNAME*OBJECT 

2.3 The user must always add a DD statement defining 
the intermediate text data set for the procedure 

GO step. 

//GO.SYSITEXT DD DSNAME«TEXT,DISP*OLD 

2.4 A DD statement may be added for user input to the 
GO step of the procedure. 

//GO.SYSIN DD * 
input data 

/* 


continued 
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PLICKLG ~ PL/I CHECKOUT LOAD AND GO (CONT.) 
3. CATALOGED PROCEDURE LISTING 



•1EMBER NAME PLICKLG 
//PLICKLG PRQC 

//LKEO exec PGM=IEWL,PARM='XREF,LlST»,REGr0Nal50K 

//STEPLia DO DSN=SyS2.PL1.LINK,DISP=SHR 
//SYSLIN DD DONAME=SYSIN 

//SYSLMOD OG DSNAMe=&&GOSET(GO ) , UNIT=SYSDA♦DISP*CMOD,PASS)f 
// SPACEa{1024, (50,, 1) ) 

//SYSUTl DD DSNAM£={;(;SYSUTl,UNIT=SYSDA,DGBa:BLKSlZE = 1024» 

// SPACE=(1024,(200,20)) 

//SYSPRINT DD SYSOUT-A 

//GO EXEC PGM=*,LKED.SYSLM0D|REGI0N=150K, 

// C0ND=(9,LT,LKED) 

//STEPLIB DO 0SN=SYS2,PL1.LINK,D1SP=SHR 
//SYSPLIC DO 0SN=SYS2.PL1.LINK,DISP=SHR 
//plIdump do SYSGUT=A 

//SYSPRINT OD SYS0UT=A,DCB=(RECFM=VBA,LRECL-125,BLKSIZE==629) 
//SYSUTl DO 0SNAME=&CSYSUTI,UNIT»SYSDA,0CB=8LKSIZE=1024, 

// SPACE=ll024,{60t60»,,C0NTIG) 

//SYSLMOD DD DSNAME=&£GOSET,OISP=(OLD,DELETE) 


00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 




4. REFERENCE 

4.1 "OS PL/I CHECKOUT COMPILER: PROGRAMMER *S GUIDE" SC 33-0007 . 








Western Electric Company 
Warrenville Data Center 117. 

PROGRAMMING S & R MANUAL 


Division 3 Chapter 5 
Section 1 Appendix BT 
Issue 1 Date 9/26/75 


PLICKR - PL/I CHECKOUT COMPILE 


1. GENERAL 

1.1 PLICKR is a one-step cataloged procedure which 
compiles» interprets, and executes one or more 

programs. By avoiding the link-edit step, it is the 
: most efficient cataloged procedure for this type 

of program. 

1.2 The user must always add a DD statement defining the 
primary input (SYSCIN), The only output is a 

listing (SYSPRINT), 

2. USING PLICKR 

2.1 PLICKR may be invoked by an EXEC statement. 

// EXEC PLICKR 

2.2 The following DD statement must be added to ^lie 
procedure. 

//GO.SYSCIN DD * 
source program 
*DATA5 

input data 
*PROCESS MACRO; 

source program 
*DATA; 

/* 

3. CATALOGED PROCEDURE LISTING 




MEMBER NAME 

PLICKR 


//PLICKR 

PROG 

00000100 

//GO 

EXEC PGMsIEN512NS.R£GIQN=150K,PARM=»RUN»N008JECT» 

00000200 

//>TEPLIB 

DO 

DSN=SYS2.PLl.LINKfDISP=SHR 

00000300 

//SYSPLIC 

00 

0SN=SYS2.PL1.LINK,DISP=SHR 

00000400 

//SYSPRINT 

■ 00 

SYS0UTsA,DC8=lRECFM«VBA,LRECLsl25,BLKSIZE=629) 

00000500 

//SYSUTl 

DD 

DSNAMe=C&SYSUTl,UNIT=SYSDA,DCB=BLKSI2E=i024, 

00000600 

// 


SPAC6={1024f(60,60),,C0NTIG) 

00000700 

//SYSEORM 

DD 

DSNAME=CGSYSF0RM,UN1T==SYSDA,DCBsBLKSIZE=400, 

00000800 

// 


SPACc={80,(250,250)) 

00000900 

//SYSUT2 

00 

DSNAMea&£SYSUT2,UNIT«SySDA,SPACEs(80,(250,250)) 

00001000 


4. REFERENCE 


4.1 "OS PL/I CHECKOUT COMPILER: PROGRAMMER'S GUIDE" SC33-0007. 
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PLIXC - PL/I OPTIMIZING COMPILE 


1. GENERAL 

1.1 PLIXC is a one-st:ep procedure which compiles and 
optimizes a source module, in which the options 

specified are OBJECT and NODECK. 

2. USING PLIXC 

2.1 PLIXC may be invoked by an EXEC statement. 

//EXEC PLIXC 

2.2 The user must always supply a DD statement for the 
input data set. 

//PLI.SYSIN DD * 
input 

/ * 

3. CATALOGED PROCEDURE LISTING 


MEMBER NAME PLiXC 

//PLIXC PRnC 00000100 
//PLI EXEC PGM=:IELOAA,PARM=»OBJECT»NODECK**REGION=IOOK 00000200 
//STEPLIB OD DSN-SYS2.PLl.LINK,DlSPsSHR 00000300 
//SYSPRINT DD SYSOUTaA 00000400 
//5YSLIN DO OSN=CCLDADSETfDlSP=(MODfPASS),UNIT*SYSS«, 00000500 
// SPACE=(80,{250»100)J 00000600 
//SYSUTl DD DSN=&CSYSUTltUNITaSYSDAt 00000700 
// SPACe*(1024,(200,50),,CONTIG,ROUND), DCB=BLKSI7E=1024 OOOOOSOO 


4. REFERENCE 

4.1 "OS PL/I OPTIMIZING COMPILER; PROGRAMMER’S GUIDE" 
SC33-0006. 
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PLIXCG » PL/I OPTIMIZING COMPILE AND GO 





1. GENERAL 


1.1 PLIXCG is a two-step cataloged procedure which in the 
first step compiles and optimizes the source into an 
object module. In the second step, the loader processes 
the object module and executes the resultant executsble 
program immediately. 

2. USING PLIXCG 


2.1 PLIXCG may be Invoked with an EXEC statement. 

// EXEC PLIXCG 

2»2 The user must add a DD statement for the input 
to the compile step, 

//PLI.SYSIN DD * 
source input 

/* 

2,3 The user may also add a DD statement for input to 
the GO step. 

//GO.SYSIN DD * 
input data 

/* 


3. CATALOGED PROCEDURE LISTING 





MEMBER NAME PLIXCG 

//PLIXCG PROC LKLBDSN=»SYS2.PLI.BASE* 00000100 
//PLI £XEC PGM=IEL0AA,PARM=*0BjeCT,N0DECK*tREGI0N=100K 00000200 
//3TEPLIB DO DSN=SYS2.PH.L1NK,0ISP=SHR 00000300 


//SYSPRINT 

DD 

SYSOUT=A 

00000400 

//SYSlIN 

DD 

DSN=G&LOADSET,DISP=(MOD,PASS),UNIT*SYSSQ, 

00000500 

// 


SPACE=(80,(250,100)) 

00000600 

//SYSUTl 

DD 

DSN-&(.SYSUT1,UNIT=SYSDA, 

00000700 

// 


SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSI2E=1024 

00000800 

//GO 

£X 

EC PG(M=LGADER,PARMs‘MAP,PRINT •,REGI0N«100K, 

00000900 

// 


C0N0=(9,LT,PLI) 

OOOOIOOO 

//STEPLIB 

DO 

DSN=SYS2.PLI.LINKtOISP-SHR 

00001100 

//SYSLIB 

DD 

OSN=£LKLBDSN,OISP=SHR 

00001200 

// DO DSN=SYS2.PLI.BASE,DI$P=SHR 

00001300 

//3YSLIN 

OD 

DSN=G6L0ADS£T,0ISP*{OLD,DELETE) 

00001400 

//SYSLOUT 

DD 

sysout=a 

00001500 

//SYSPRINT 

DO 

SYSQUT=A 

00001600 

//PLIDUMP 

DD 

SYSOUT^A 

00001700 


4. REFERENCE 




4.1 ‘'OS PL/I OPTIMIZING COMPILER: PROGRAMMER’S GUIDE 
SC33-0006. 
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PLIXCL ^ PL/I OPTIMIZING COMPILE AND LINK-EDIT 


1. GENERAL 


1.1 PLIXC.L is a two-step catalog procedure; the first 
step PLI is identical to the catalog procedure 

PLIXC and the second step, LKED, invokes the linkage 
editor to link edit the object module produced in the 
first procedure step. 

2. USING PLIXCL 

2.1 PLIXCL may be invoked by an EXEC statement* 

// EXEC PLIXCL 

2.2 The user must always add a DD statement for the 
input to the compiler step. 

//PLI.SYSIN DD * 
input 

/* 


2,3 If the user wants to retain the output of the linkage 
edit step beyond the duration of this job, a 
DD statement must be added. 

//LKED.SYSLMOD DD DSN-EXAMPLE 

3. CATALOGED PROCEDURE LISTING 


MEMBER NAME PLIXCU 

//PLIXCL PRUC LKL3DSN=*SYS2.PLl,8ASe* 

//PLI EXEC PGM=IEL0AA,PARM=‘OBJECT,NQ0ECK»,REGI0N=100K 

//STEPLIB do D3N=SVS2.PLI.link,disp=shk 
//SYSPRINT DO SYSGUT=A 

//SYSLIN DD OSIM=CCLOAOSET,D1SP=(MOD,PASS) ,UNIT=SYSSQ, 

// SPACE=(80,(250,100)) 

//SYSUTl DD 0SN=£CSYSUT1,UNIT=SYSDA, 

// SPACE=(1024,(200,50),,C0NTIG,ROUND),DCB=BLKSI2E=I024 

//t_KE0 EXEC P&M=IEWL,PARM='XREF,LIST*,C0N0=(9,LT,PLI ),REG1CN = 100K 


//SYSLI8 DD DSN = £.LKLBDSN,DISP=SHR 

// DO DSN=SYS2.PLI.BASE,DISP=SHR 

//SYSLMOD DO 0SN=&£G0SET(GO),DISP=(MOD,PASS),UNIT=SYSDA, 

// SPACE=(i024, (50,,1) ) 

//SYSUTl 00 DSN=£&SySUTl,UNlT=SYSDA, 

// SPACE=(1024,(200,50),,C0NTIG,ROUND),DGB=BLKSIZE=1024 

//SYSPRINT DO SYS0UT=A 

//SYSLIN 00 DSN=££1LDADSET,DISP=(0LD,DELETE) 

// 00 DONAME^SYSIN 


00000100 

00000200 

00000300 

000O0400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 


4. REFERENCE 

4.1 "OS PL/I OPTIMIZING COMPILER: PROGRAMMER’S GUIDE” 
SC33-0006. 
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FLIXCLG ~ PL/I OPTIMIZING COMPILE, LINK EDIT AND GO 




1. GENERAL 


1.1 

PLIXCLG is a 

three- 
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2. USING PLIXCLG 

2.1 PLIXCLG may be invoked by an EXEC statement. 

// EXEC PLIXCLG 

2.2 Input data for the compilation step must be 
specified in a DD statement. 

//PLI.SYSIN DD * 
source input 

/ * 

2.3 Input data may be specified for the GO step 
with a DD statement. 

//GO.SYSIN DD * 
input data 

/* 

3. CATALOGED PROCEDURE LISTING 

MEMBER NAME PLIXCLG 

//PLIXCLG PROC LKLbD3N=‘SYS2.PL1 .BaSE» OOOOOlOO 

//PLl EXEC PGM=I£L0AA,PARM=»03J£CT»N0DECK'fREGION^IOOK 00000200 

//STEPLI6 DO DSN=SYS2.PLl.LINKtDISP=SHR 00000300 


//SYSPRINT 

DD 

SYS0UT=A 

00000400 

//SYSLIN 

DD 

DSN=&£;L0ADSET,DISP = 1 MOD, PASS) f UNIT-SVSSQ, 

00000500 

// 


SPACE={80,(250,100)) 

00000600 

//SYSUTl 

DD 

DSN = C&SYSUT1,UNIT = SYS0A, 

00000700 

// 


SPACE=tl024,(200,50),,CONTIG,ROUND)*DCB=BLKSI2E=1024 

00000000 

//LK.E0 

EXEC PGM=IEWL,PARM='XKEFtLlSTSC0NDs(9,LT ,PLI ) t REG10N*100K 

00000900 

//SYSLI8 

DD 

DSN=CLKLBDSN,DISP=SHR 

00001000 

// DD 03N=SYS2.PLI,BAS£tDlSP=SHR 

0000X100 

//SYSLMOO 

DD 

DSN=SLGOS£T(GO),DISP={MOD,PASS>,UNIT*SYSDA, 

00001200 

// SPAC 

e={ 1024,(50,, 1)) 

00001300 

//SYSUTl 

DO 

DSN=CL5YSUT1,UNIT=SYSDA,SPACEs(1024,(200,20)), 

00001400 

// 


DCB=BlKSIZE=1024 

00001500 

//SYSPRINT 

DD 

SYSnUT=A 

00001600 

//SYSLIN 

OD 

DSN=GtLOADSET,OISP*(OLD,DELETE) 

00001700 

// 

DO 

DDNAME=SySIN 

00001800 

//GO 

EX 

EC PGM=>!'.LKED.SYSLMOD,COND=( (9,LT*PLI)t (9,LT*LKED)) , 

00001900 

// 


REGTON=10OK 

00002000 

//STEPLIB 

DD 

DSN=SYS2,PLl.LiNK,DISP=SHR 

00002100 

//SYSPRINT 

DD 

SYS0UT=A 

00002200 

//PLIOUMP 

DD 

SYS0JT=A 

00002300 


4. REFERENCE 

4.1 ’*0S PL/I OPTIMIZING COMPILERS PROGRAMMER* S GUIDE" 

SC33-0006, 
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PLIXLG - PL/I OPTIMIZING LINK-EDIT AND GO 




1, GENERAL 

1,1 PLIXLG is a two-step cataloged procedure which link 
edits the output from a PLIXC procedure into a load 
module and then executes the load module. 




2, USING PLIXLG 


2,1 PLIXLG may be invoked with an EXEC statement, 
// EXEC PLIXLG 


2«2 The user must add a DD statement for the input 
to the linkage edit step. 

//LKED.SYSIN DD * 
or 

//LKED, SYSLIN DD * 

2,3 Input to the GO step may be provided with a DD card, 

//GG,SYSIN DD * 
input data 

■ /*'■" - ■ ■ 


3, 


4, 


CATALOGED PROCEDURE LISTING 


MEMBER NAME PLIXLG 

//PLIXLG PROC LKLBaSN=*SYSl.PLI8ASE* 

//LK.E0 EXEC PGM=IEWL,PaRM=*XREF,LIST»,REGI0N*100K 

//SYSLIB DD DSN=GlKLBDSN,DISP=SHR 


// 


DD DSN=SYSl,PLlBASEtOISP=SHR 


//SYSlMOD DD 
// 

//SYSUri DD 
if 

//.SYS PR I NT DD 
//SYSlIN DD 
//GO EXE 

//SYSPRINT DO 


OSN=LCGOSET(GO),DISP={MOD,PASS),UNlTeSYSDA, 

SPACE=(1024,(50,20,1),RLSE ) 

DSN-&(.SYSUT1,UNIT=SYS0A, 

SPACt=(1024,(200,20),,C0NTIG,ROUND),DCB=BLKSIZE=1024 

SYSaUTs^A 

ODNAME=SYSIN 

C PGM=>S'.LKED.SYSLMOD,C0ND*(9,LT,LKED),REGION = 100K 
SYSOUTsA 


REFERENCE 


OOOOOlOO 
00000 200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 


4.1 "OS PL/I OPTIMIZING COMPILER: PROGRAMMER’S GUIDE" 
SC33-0006. 
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CATALIST - LIST CATALOG NODE POINTS 


1. GENERAL 

CATALIST is a catalogued procedure which facilitates use 
of the Western Electric Utility Program CATALIST. CATALIST 
provides more information than the IBM lEHLIST utility and prints 
the data in a more readable form. 

2. SYMBOLIC PARAMETER 

2.1 CATALIST requires an INDEX parameter which supplies the 
NODE point(s) to be listed. 

3. USING CATALIST 

3.1 The procedure is invoked with an EXEC card and the required 
INDEX parameter. 

// EXEC CATALIST,INDEX=*node’ 

where *node* is of the format: PRDGxx.PSI(xx is the PGN) 

3.2 If more than one PSI is to be listed, the field should 
be coded as INDEX»»PRDn.PSI,PRDn.PSI* 

3.3 If the data sets for a particular system do not use the 
naming convention PRDGnn.PSI.yyyyy or PRDTnn.PSI.yyyyy, 

the user should only specify the first level of the data set 
name; otherwise the user would have to specify each exact second 
level that is used in that particular system, 

4. EXAMPLES OF USE 

4.1 List the entire catalog of one system. 

//EXEC CATALIST,INDEX**PRDT6.PSI* 

4.2 List the entire catalog of two systems which are assigned 
to different Production Group Numbers (PGNs). 

// EXEC CATALIST,INDEX**PRDG4.PSI* 

// EXEC CATALIST,INDEX»*PRDG6.PSI* 

4.3 List the entire catalog of two systems which are assigned 
to the same PGN. 

//EXEC CATALIST,INDEX**PRDG4.PSI,PRDG4.PSI* 
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5. CATALOGED PROCEDURE LISTING 





MEMBER name CATALIST 

//CATALIST PROC SYSRES=ASP31A,INDEX= MPRDO.ERROR)» 

//Lisr excC pgm=catalist,parm='£Sysres&index* 

//SYSPRINT Oi) SYSQUT = A 

//DDl 00 01 SP = SHR,UNI T=OISK, V0L.= SER=PRDD04 

//':)D2 00 DISP=SHR,UNIT = DISt<,VQL=SER=PRDD06 

//003 DO DlSP=SHR»UNIT=DISKfV0L=SER=PR0010 
//0D4 DO 0ISP=SHR,UNIT=0ISK,V0L=SER=PR0D12 
//DD5 00 OISP=SHR,UNIT=OISKfV0L=SER=TEST05 

//DD6 DO DISP=SHR,UNIT=DISK,VDL=SER=TEST11 


00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 



6. REFERENCE 

6.1 Division 3, Chapter 2, Section 2, CATALIST. 
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CATAUTIL - CATALOG MAINTENANCE UTILITY 


1. GENERAL 

CATAUTIL is a catalogued procedure which facilitates 
use of the Western Electric utility program CATAUTIL 
which performs functions on the catalog that are 
not available through lEHPROGM. 

2. USING CATAUTIL 

2.1 The procedure is Invoked with an EXEC card. 

// EXEC CATAUTIL 

2.2 The following DD statement must be added to the 
procedure. 

//SYS IN DD * 

(control cards) 

2.21 Control cards are required as described in 
Division 3, Chapter 2, Section 2, CATAUTIL. 

3. EXAMPLES OF USE ; 

3.1 Delete an index. 

// EXEC CATAUTIL 
//SYSIN DD * 

DLTINDEX 1NDEX»DEV05.F99 

3.2 Change a Generation Data Group index. 

// EXEC CATAUTIL 
//SYSIN DD * 

CHNGBLDG INDEX«PRDG22.FOO.TRANSNET,OFTION-N 





CA 
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CATAUTIL " CATALOG MAINTENANCE UTILITY (CONT.) 


4. CATALOGUED PROCEDURE LISTING 


//CATAUTIL PROC 
//catautiu exec PGM=CATAUTIL 
//SVSPRINT DD SYSOUTsA 
//SYSUOUMP OD SYSOUT*A 


5. RESTRICTIONS 

5.1 CATAUTIL may not be used for a generation data set 
which contains an entry which resides on more than 
five reels, 

6. REFERENCE 

Division 3, Chapter 2, Section 2, CATAUTIL 
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VSbASIC ~ V S BA SIC TRADSLATC AND R UN 


1• GENERAL 

VSBASIC is a one step cataloged procedure to translate and run 
aBASICsource module. 

2. using VSBASIC 

2.1 VSBASIC may be invoked by an EXEC statement : 

// EXEC VSt^ASIC 

2.2 The following DD statements must be added to the procedure. 

2.21 A COlsiTRuL^ DD statement is required as follows: 

//CONTROL DD * 

RUN ABC SOURCE 

/ * 

Vvhere ABC is the name oi' the source 
program which appears in a DD state- 
m e n t n a m e d A B C 

2.22 A DD statement for the source program with the name of the 
source program as the name of the DD statement. 

//ABC DD * . 


BASIC FROGRAH 


/* 

3. EXAMPLE OF USE 

// EXEC VSbASIC 
//CONTROL DD * 

RUN ABC SOURCE 

/# 

//ABC DD 

(source statements for ABC) 

/* 
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VSBASIC - VS BASIC TRANSLATE AND RUN (COi\lT.) 


^ . CATALOG PROCi i DuKE LISTING 


//VSBASIC 

PROC 


00000100 

//STl 

EXEC 

PGM-ICDOSBSC 

00000200 

//STEPLIB 

DD 

DSN«SYS2.BASIC.LIKK,DISP»SKR 

00000300 

//SYSPRINT 

DD 

SYSOUT-A 

OOOOOAOO 

//SYSDDUMP 

DD 

SYSOUT-A 

00000500 


5. REFERENCE 

IBM S/370 VSBASIC OS/VS AND DOS/VS PROGRAMMER'S GUIDE, 
SC 26-830b 
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MISCELLANEOUS INFORMATION 

UPDATING OF PROGRAMMING STANDARDS AND REFERENCE MANUAL 
SECTION 1 - ESTABLISHING AND CHANGING STANDARDS 

1. INTRODUCTION 

1.1 Current programming standards and relevant miscellaneous information 
are documented in this manual. As used herein, a standard is the 

prescribed procedure for accomplishing a specific task . Hence, it follows 
that as new and improved procedures are formulated and proposed as standards 
there is need for a procedure to change (modify, add or delete) these pro¬ 
gramming standards and subsequently this manual. This process of change 
involves many individuals and groups. System planners and programmers 
will be required to modify system hardware and software, the operating 
organization will need to adjust their routines, the application pro¬ 
grammer will be called on to modify application programs and programming 
procedures, and the Control Group must plan, coordinate and document the 
change. These individuals and groups will need time to systematically 
prepare for and conform to the change. The following sequence of events, 
the standard procedure for changing standards and, therefore, this manual 
will assure each the time required. 

2. PROCEDURE 

2.1 Proposals for new standards and to change (modify, add to or delete), 
existing standards should be forwarded, in writing, to the Warrenville 

Data Center Control Group. The proposals can be originated by any application 
programmer, system planner, system programmer, operating sedtion chief, 

Control Group member or their supervisor; located at either the central 
or any remote data center. 

2.2 The Control Group shall promptly examine each proposal for feasibility, 
compatability and relevance and shall determine what course of action 

is to be taken. 

2.21 Acceptable proposals, with or without Control Group modification, 
shall be documented by the Control Group and submitted to all 

interested organizations for comment. A reasonable deadline shall be 
established for receiving comments on each proposal. 

2.22 Rejected proposals shall be returned by the Control Group to 
their source with a written explanation. 

2.3 The Control Group shall promptly consider all comments received 
before the specified deadline. The original proposal shall be re- 

examined with respect to submitted comments. The Control Group shall 
determine what course of action is to be pursued. 
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2.31 Proposals determined to be essentially unchallenged via coitunents 
shall be prepared for implementation. The Control Group shall 

prepare an implementation check list and inform each functional organi¬ 
zation, in writing, of their required participation. 

2.32 Proposals determined to be unacceptable after consideration of 
comments shall be returned to their source with a written 

explanation. 

2.4 The Control Group shall prepare and distribute an ’’Information 
System Memorandum - Advance Information” detailing the new or 

changed procedure to be implemented. The memorandum shall inform the 
programmer of the procedure to be implemented, the effect on their efforts, 
and the projected implementation plan. 

2.5 The Control Group shall document or have documented by the functional 
organization the new or changed standard (and/or associated miscellaneous 

information). The documentation shall be issued as an update to the Pro¬ 
gramming Standards and Reference Manual prior to the planned implementation 
date. 

2.6 The Control Group shall be functional for co-ordinating and expediting 
the implementation effort. 
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MISCELLANEOUS INFORMATION 

UPDATING OF PROGRAMMING STANDARDS AND REFERENCE MANUAL 
SECTICN 2 - PREPARATION AND DISTRIBUTION OF MANUAL UPDATE MATERIALS 


1. INTRODUCTION 

1.1 Update materials for the Warrenville Data Center Programming Standards 
. and Reference Manual shall be prepared and distributed per the in¬ 
structions of this section. 

1.2 The Manual was structured to update and reissue pages individually. 

A page is identified by division, chapter, section and page number. 

As updates are prepared, this structure shall be maintained. If additional 
pages are to be prepared, it shall be done in such a way as to avoid the 
use of decimal notations for chapter and section numbers. A one-place 
decimal notation shall be allowed for page number* If two or more places 
are required, the entire section should be re^-numbered and re-issued. 

2. PAGE FORMAT 

2.1 Pages for the manual shall be typed on standard 8 1/2 X 11 inch 
bond paper and shall conform in format to that of the original 

issue (see Exhibit A for model). 

2.2 Margins shall be as follows: 

Top - 1/2 inch (3 lines) 

Bottom - 1 inch (6 lines) 

Left - 1 1/4 Inches (15 spaces) 

Right - 3/4 inch (9 spaces) 

2.3 The left heading, section page number, and right heading shall be 
placed on each page. 

2.31 The left heading is the title block and shall always contain 
the following information: 

Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 

3.32 The section page number shall be centered between the left and 
right headers. All pages of the section shall be numbered in one 

sequence including the first page and any appendices and/or exhibits added. 



Western Electric Company 
Warrenville Data Center 
PROGRAMMING S 6c R MANUAL 


2.33 The right heading is the major page identification information,. 

It slialT be of the following format with the variable data 
(XX and YYYYYYYYYYYY) Inserted ns required. 

Division XX Chapter XX 
Section XX YYYYYYYYYYY 
Issue XX Date XX/XX/XX 

YYYYYYYYYYY - space to identify exhibits or appendices, formatted as 
follows t 

Exhibit X (X an alphabetic character) 

Appendix X (X an alphabetic character) 

2.4 The first page of each section, appendix, and exhibit shall have 
division, chapter, and section titles included as illustrated in 

Exhibit A, These title lines shall be omitted from continuation pages. 

2.5 The topics and paragraphs of each section, appendix and exhibit shall 
be numbered as illustrated in Exhibit A. Decimal number notations 

shall be used for paragraph numbering only. When it becomes necessary to 
insert topics the section shall be renumbered and reissued as required. 

3. ISSUE NUMBER 

3.1 Each page shall contain issue number and date. (Paragraph 2.33). 

An original page shall be’Issue 1". When reissued, the page issue 

number shall be increased by one and the date modified to indicate the day 
the reissue is to become effective . 

4. CHANGE, FLAG 

4.1 Any page reissued to modify the existing text shall contain a heavy 
vertical line drawn 1/2 inch from the right edge of the Sheet to 

flag that paragraph having new or changed text. Deleted material shall 
be indicated with a note placed in the lower margin. 

5. DISTRIBUTION 

5.1 The Control Group shall maintain a Manual Distribution List. Manual 
update materials shall be distributed to those organizations and 

individuals on the current list. 

6. PAGE-ISSUE LIST 

6.1 The Control Group shall maintain a current list of pages in the 
Manual. The list shall include the following data for each page. 

ISSUE NUMBER 

ISSUE DATE (Effective date) 

CHANGE CODE 


Division 4 Chapter 1 
2. Section 2 

Issue 2 Date 3/1/73 
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6.2 The change code shall be one of the following: 

]6 = no change 
A = page added 
M = page modified 
D = page deleted 

6.3 A current issue of the PAGE-ISSUE LIST shall be included with the 
distribution of any update materials. 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


(Margin-1”) 
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DIVISION 1+ - MISCELLANEOUS INFORMATION 
CHAPTER 2 - INFORMATION SYSTEMS MEMORANDUM 
SECTION 3 - SPECIAL INFORMATION 
SUBJECT - IMS SYSGEN SCHEDULE 


1. General 

1.1 Increases in requests for IMS System Generations have made it necessary 
to increase the time between the request deadline and effective date of 
the SYSGEN's. Effective September 1, 1977> all IMS on-line requests must 
be received at Warrenville by noon on Friday of the 2nd week prior to the 
effective date (i.e. 6 working days prior to the effective date instead 
of the current k working days). 

1.2 The effective date (IMS Cold Start) will also be changed to Tuesdays 
instead of Mondays, effective September 1. 

1.3 Attached is a revised schedule for the remainder of 1977* 

1.4 All l+-oharacter PSI conversion will be done in the normal SYSGEN schediiles. 

2. Questions 

2.1 If there are any questions or coimnents, contact Trudy Lyvers (391-5371)• 



APPROVEI ) Y? (gL- 'Yajlj/ ^ _ 

P. C. PEEK 9L1I2 

APPROYETD^ 

R. R. SORMSEN 0 9 ^ 1 ^ 
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DIVISION 4 - MISCELLANEOUS INFORMATION 
CHAPTER 2 - INFORMATION SYSTEMS MEMORANDUM 
SECTION 3 - SPECIAL INFORMATION 
SUBJECT - NEW RELEASE OF LIBRARIAN 


1. GENERAL 

1.1 Release 5.0 of the LIBRARIAN will be installed at 
Warrenville on July 7, 1975. In addition to cotrecting 

several problem areas the new release has some added features 
which greatly enhance the LIBRARIAN. 

1.2 The installation of the new release of the LIBRARIAN 
requires no change to any current Librarian control 

cards or source modules. 

2. ADDITIONAL FEATURES 

2*1 The -LANG command enables a user to store a three byte 
language code with the source module. 

2.2 A new option on the -OPT control card is NOPC which . 
suppresses page eject between modules on the updated 

listing. Also use of this parametet will suppress any spacing 
on the frontispiece. 

2.3 The -EDIT control card parameter *’STR“nn” provides the 
capability of specifying the column number the search 

is to start on. 

2.4 The Librarian will not allow a user to attempt to add 
a module without any Input cards. 

2.5 The programmer has the option of overriding the 
LIBRARIAN generated password when adding a module by 

specifying his own four Character code as an option on the 
-ADD card. 

2.6 The -INC commands may be nested to a maximum of five 
levels with one obvious restriction (i.e. a module 

may not include itself nor any module in a higher level) 
which prevents looping. 


L. MATHIS 7736 
ILL. WORKS 



Western Electric Company Division 4, Chapter 2 

Warredville Data Center 2, Section 3, Date 6/13/75 

PROGRAMMING S & R Manual Remove; 1/1/76 


O' 



2.7 Previously the -AUX card could only be placed after an 
“ADD card. Now, the -AUX card may also be used after 
the “REP or “INS command when selecting a module already on 
the master file. 


3. R ESOLVED PROBLEM AREAS 

'3.1 The UTILITY option on the -OPT card has been modified 
so that it no longer generates a -END card, 

3.2 If the TEMP option is used on -ADD card the LIBRARIAN 
will reject the update and provide a diagnostic message 

indicating such, 

3.3 If a “REP or “DEL card sequence number was beyond the 
range of the module the next -SEL was previously 

processed twice. This problem has been corrected in version 

5.0. 

3.4 A modification has been made to allow zero as an 
acceptable "SEQl” on a -INC, -PRINT or “PUNCH card and 

"LAST” as an allowable "SEQ2", 

3.5 The hash count check has been modified to check for all 
updating operations with the exception of "-REP ALL", 

even -EDIT and -FILL which previously were not checked. 


3,6 The name of any -INC (Included) module is checked 
against the ENQUEUE list to prevent the multiple 
ENQUEUE ABEND., 


4. 



4.1 Any questions and/or problems concerning this matter 
should be directed to J, E, Tellez Dept 9412 
(8-391-5254). 
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DIVISION 4 - MISCELLANEOIiS INFORMATION 
CBAPTFR P - INFORMATION SYSTEM MEMORANDU"^ 
SECTION 3 - SPECIAL INFORMATION 


SUBJECT - CONVERSION TO 6250 DPI TAPE DRIVES 


1. GENERAL 


1.1 In line with our continuing effort to improve service and 
t o increase overall system throughput, Warrenville will 

replace all 64 9 track, 1600 DPI, STC tape drives with 9 trc?ck, 
62 5 0 B PI STC tape drives i n 1 a t e D e c e m b e r , 1 976 . T b j. s 

change will reduce tape errors and job I/O time. The 6250 PPI 
tape drives automatically clean the tape before it Is passed 
under the read/write head in addition to providing significantly 
enhanced error handling. 

1.2 The hardware will be installed in several stages on 

December 29, 1976, with the following final configuration: 

58 M 0 D 5 drives 6250/1600 dual density d r i. v e s 

defaulting to 6250 BPI on output (available 
Decernber29,19T6) 

2 MOD7 high steed dual density drives (available 

on December 12, 1976) 

2 MOD5 drives for HITS/IMS use 

2 1600/800/200 dua1 density drives 

The major part of the drive exchange vn. 11 be done on December 26 
through December 28, 1976, when the data center use will be 

low due to the Chri.stmas holidays thus minimizing the impact on 
production schedules, 

1.3 The new dual densi.ty 6250/1600 BPI drives will transfer 
1600 EPI data 30 7 j slov:er than the current drives. The 

impact of this slower speed on the data, center needs to be 
minimized by copying 1 600 BPI tapes to 6250 BPI nri.or to the 
data center's return to full operation on January 3, 1977 after 

the Christrr.as/New Year's break which is also the first fisca. 1 
week of processing. Most copying will be scheduled for 
December 30 and 31 with limited copying done after December 12, 
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1.4 Each location has a 6 250 tape copying coordinator I'ho, 
along with the application provramir’ers at his location 
\^7ill identify those files to be copied. Candidates for copying 
are those tape files over 1 million bytes in size and those 
to be read after January 3 at 1600 BPI. Smaller files with 
significant impact on tape usage durj.ng the first fiscal week 
should also be considered,. 

2. COPYING PPOCEDUPES 


2,1 Cataloged procedures are provided for the copying to 

insure uniformity and reliability of the copving. Each 
copy execution will be followed bya tape compare to insure that 
the copied files are identical to the old files. If the compare 
fails, the step and job vjill ABEND leaving the 1600 PPI tare 
intact. All 1600 BPI tapes that are copied will he retained 
until tbe3.r norni.al expiration unless some overt action is 
taken by the responsible programmer to release them. The latter 
is recommended V7hen it is determined that the backup is no longer 
needed, 

2,11 COPypILE is the cataloged procedurename for corvinm 
single files,, either a genera t i,.on dataset or a 
standard dataset. To execute the procedure, one must sucolv 
the following JCL v;ith the indicated symbolic parameters: 


//COPYFILE JOB (M, 522001 ,CON) ,lcridddpsi/pgrcrn8,me , PFGI0N = 1Q6K PIN 
// EXEC COPYFILE , DSN 1 ='dataset na.me ' , BEEN EW = bl ks i ze , FFT = r e t pd , 

G D G = ' m 0 d e 1 d s c b ' , P S M 2 = ' d a t a s e t n a m e ( n ) ' 

v/here: DSN1=the dataset to be copied 

ELKMEVIrthe new output blocksize 

RETrthe retention period of the new 6250 BPI data 
GDG=where the model DSCB is located 

DSN 2 = out put dataset name (used only v.'hen addressing 
generation data groups v;here n = +1,etc.) 

default; ‘ 


DSM1 = 

DSN2 = '’^ . COPY . SYSUT 1 (the input dataset name) 

BLKNFWr 

RET = 5 
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a) //SI EXEC COPYFILE,DSN1 ='PRD^*DPM.TEST6250 ' , 
BLKNE¥=32000,FET=15 


b) //SI EXEC COPYEILE ,D.SN1 ='PPDGM .DPM.TPMOOl (0 ) ' , 

DSWSr'PRDC4.DPM.TRMOOI( + 1)',RET = 25,GDG= 'SYS2.PSCP ' 

Note: Users who reouire that a file be a specific generation 

number should copy the reneration as a repular DSN 
specifying the full DS^DAME including the GOOOVOO and no 
model DSCB reference, 

ex.: //SI EXEC COPYFILE,DSM1 = 'PPDG4.DPM.TRMOO1.GG070 EC0 ' ,RET = 45 

2.12 C 0 P Y T A P E is the c a t a 1o p e d p r o c e d u r e n a m e for c o d yin p 
tapes with more than one dataset residing on it. 

To execute this procedure, one must supply the following JCL 
with the indicated symbolic parameters for each dataset on 
he tape: 

//COPYTAPE JOB (M,522001,CON),1cddddDSi/pgmrname,REGI0N=196F BIN=xx 
// EXEC COPYTAPE,DSMREF="fir St.data.set ",DSNN='data.set.to.copy ' , 
// BLKNEW = bl ks ize , RET = re t pd , GDG = "mod el . d scb ' , FILEMC label no , 

// DSNP="data,set.name . out . ' 

where: DSNREFrthe first dataset on the volume to be used in the 

VOL=REF parameter (do not code on the step 
copying the first dataset) 

DSNM =the dataset to be copied in this step 
P L K N E H r t h e new output b1o c k siz e 

PET =the retention period of the new 6250 dataset 
GDG =where the model DSCP is located 

FILENO =the label number of the dataset beinm copied 
i n t h i s s t e p 

DSNP =the name of the 6?5Q output dataset be ins created 
in this step 

example: 

//SI EXEC COPYTAPE,DSNN= "PRD4.DPK.SAFTEST1 ", 

// RET=45 

//COPY.SySUT2 DD V0L= 

//S2 EXEC COPYTAPE,DSMPFF="FPD4.PPM.SAFTEST1 ", 

// DSNN='PRD4.PPM.SAFTEST2",PET = 45,FILENO = 2 
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or 

//S1 EXEC COPYTAPE,DSNN= "PPDGiUDPK.SAFOOl (0) 

// HET = 45 ,GDG= 'SYS2.DSCB ' jDSNP= 'PPDGi! .DPM.SAF00 1 ( + 1 ) ' 

//C0PY,SYSUT2 DD V0L= 

//S2 EXEC COPYTAPE,DSNREFr'PRDG^I .DPM.SAF001 (0) ' , 

// DSNN='PRDG^.DPM.SAFOOI (-1 ) ' ,RETril5 , 

// DGD='SYS2.DSCB',FILFM0 = 2 , 

// DSNP='PRDG‘4.DPM.SAF001 "(0) 6 


defaults: 

DSMREF = 

DSNN = 

ELKNEWr = 

RET =5 

GDG = 

FILENO =1 

D S W P = ^ . C 0 P Y , S Y S U T 1 

Additions: 

a) the override //COPY.SYSUTP DD VOL= must be coded on the 

first dataset of the volume to satisfy JCL svntax reauiremenns 

b) all datasets on the volume must be cooied at one time to 
i n s u r e e X a c t d u. p 1 i c a t i o n 

2,13 Each cataloged procedure includes a, ta d e compare of 

the 1600 BPI to the 6250 BPI dataset. If the comcare 
finds one mismatch, the step and job will ABEND with a USFR12 
completion code. If this happens during an execution of 
COPYTAPEon just one step the job should be rerun, 

2.1^1 The followmlng is a copy of the COPYFILE procedure: 

//COPYFlLt PPOC DSNl =:,BLKHEW=,REGN=^196K,RET = 5TGDG=TDSN2=:»t.„C0PY.SYSUTl« 

//COPY EXEC PGM=^WECOPY,REGlUN=tkEGN 

//SYSPRIMT DO SYSOUT=A ' -------------- 

//SYSUTl DD DSN=CDS.NItDISP=( OLD, PASS, KEEP! 

//SYSUT2 DD DSN^CUSN?,0iSP=^(Nf-'W,KEEP,DELETE ) , 

//' - UNIT = 1 APE6250,DCH = { C GUG, BLK S I ZE ="0 BLKKE W, nEN=4),... - 

// VOL=( ,RETAIN ) ,LABEL--^RETPD=CRET 

//COMPARE EXEC PGM=VNPUSFR,REGIUN=CREGN, 

// ' .PAKM=*COiMPARE,001 ,6230 COPY COMPARE ... .... -. ' 

//STEPLIB DD DSN = PR0l6,L(rADLIB,DISP=SHR 
//SYSPR INT DD SYSOUT=A 

//SYSUTl . DD DSN=^^.COPY.SYSUTl,1)1SP = (0LD,UNCATLG,KEEP) , V0L={ fRET AIN ) ' 

//SYSUT2 DD DSN=«.COPY.SYSUr2,0ISP=(0LD,CATLG,DELETE), 

// V0L = ( ,RETAIN) 

//ABEND EXEC PGM-W*'ABEND , COND== ( 0, FO, COMP ARE ) ,RFGI0N = 30K --- 

//SYSUTl DD ..COPY.SYSUT2 ,DISP:^(OLD ,UXCATL&,UNCATLG) 

//SYSUT2 DD DSN-<=.COPY.SYSUTl,DlSf" = (OLD,CATLG,CATLG) 

//END- eXEC--^-PGM = IEFBRl4" ---------— .. 
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2,15 The following is a copy of the COPYTAPE procedure: 


//CUPYTAPE PROC D SNRE F=» DSNN=, RE GN=3,96K , BLKN EW= »RET = 5, GDG==, FlLENO-l, 

//.-.DSNP=* ’^.COPY.SYSUTl » ---------- 

//COPY EXEC PGM=weCOPY,REGION=GREGN 

//SYSPRINT DO SYSOUT=A 

■//SYSUTl—--DD OSN = GDSNN,DlSP = tOLD»PASS,KEEP>--—-—--—-- 

//SYSUT2 DO DSN=GDSNP,OISP=(NEW,PASS,U£LeTE), 

// UI'iIT=TAPc6250,DCB = {GGDGrBLKSlZE=GBLKNEW,OEM=4), 

//.... VOL=(, RETAIN^, , REF = GDSNREFJ ,---—-- 

// LABEL-(GFILENOv»»tRETPD^GRET) 

//COMPARE EXEC PGM=VNPUSER»REG10M=GREGN, 

//...- PARM=®COMPAR£» 001,6250 COPY COMPARE*—---— 

//STEPLIB. DD DSN=PRD16,LOADLI3,DISP=SHR 
//SYSPRINT DD SYSQUT=A 

7/SYSU71 . DD DSN=>:‘.COPY.SYSUTl,OISP = (OLO,UNCaTLG,KEEP) ,V0L={ ,RETAIN) - 

//SY3UT2 DD DSNCOPY.SYSUT2,D1SP=lOLD,CAlLG,DELETE),VOL={,RETAIN) 
//ABEND EXEC PGM=WEABEND,COND=tO,EOvCQMPAREI ,REGIQN = 3C)K 

7 /SYSUTl—DD 0SN=>:^.C0PY,SYSUT2 ,DISP=={ OLD,UNCATLGrUNCATLG)—-— 

//SYSUTZ DD DSfM==<=.COPY,SYSUTl,DISP-{OLD,CATLG,CATLG) 

//END EXEC PGM=IEFBR14 


2.2 The application programmer responsible for the tapes should 
prepare the necessary decks for the location coordinator 

by December 20 if not before. The location coordinator will also 
need the last date that the taps is to be used before December 29 
so the copying may be scheduled. Those locations and systems 
that will be processing December 29 and after w^ill convert auto- 
roatically. Those locations outside of the Chicago area not open 
December 29 through 30, 1976, will have copyi.nr done by 
Warrenviile personnel during that period. Procedures for the 
location coordinators to follovj to get his location cards to 
Warrenviile will be provided. Those locations in the Chicago 
area will be able to come to Warrenvj.lle for copying j.f their 
location is closed, 

2.3 The two M 0 D 7 high speed 6250/ 1 600 dual density d r j, v e s 
(UNIT = TA PE6 2 50) vn‘, 11 be available for copying after 

December 12. The cataloged procedures (see par. 2,1) will 
access these two drives before December 2b, At that time, these 
procedures will then access thenev/ly installed MCD5 drives. Apt 
tapes that are copied before December 29 must have at least 
a 30 day retention period toinsure reliability of the tare , 
scratch pool. 
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2.4 The location coordinators are: 


Columbus PECC 
Columbus Works 
Dallas 
Indian Hill 
Indianapolis 
Lisle 

Mont aornery 
Oklahoma City 
Omaha 

V? a r r e n V i lie 


3. iCD CONSIDERATIONS 


-PaulFerrruson 

- Fred Thompson 

- Ron McCauley 

~ Joyce Kalleck 

- Jack Eller 
-DonCervenka 
-Dick Park 

- Ron Cox 

- Bob Wilson 

- Pob Pozorski - 9416 

- JoeKucharski - 9417 

- Jim Sterner - 9^I2S, ?Q 


3.1 System defaults V7i 11 be cba.nyed as of December 29 , 1^76. 
UMIT=TAPF will default to the MODS 62^0/1600 dual densitv 

drives and the density will default to DFN = 4 for 6250 DPI tapes. 
Any 1 600 PPI tape mounted for input vjill tric^mer 1 600 BPI 
processing on the M0P5 drive. All this means is that the user 
utilizincr standard system defaults will be recuired to make 
no JCL changes. Any JCL v/ith DEN = 3 coded needs to have this 
code removed to use the new 6250 BPI density default, Anv files 
that must be 1600 BPI (microfiche, MI NI - e d m e , etc.) m u s t have 
UN IT = T A PE 6 2 5 0 and DEN = 3 on the DD card. Anyth in m else V 7 ill^ 
not produce 1600 EPI output. The generic name of 6250 PPI 
volumes is 3400-5 to be used in IE HP FOGM applications. This 
is a change from 3-4 0 0-3 used currently for 1 6 00 PPI. 

3.2 Spool tapes will be limited to 1/4 tane. This is no 
reduction in the am.ount of data allov/ed currently. 


3.3 All Tape Li-hr ary tapes needto be converted by March 1, 

1 9 7 7 . At this time the 1600 BPI dual canahi 1 i,ty will be 
removed from the M0D5 drives. A listinm of all 1600 PPI tares 
r emain i.n m vj i 11 be r r e r ar e d in February and these files must then 
be copied. Hovjever, as P0? of the tapes in our library have 
a retention oeriod of 30 days or less, the number of remaining 
1 6 0 0 P PI t a p e s s b 0 u 1 d b e s m a 11. 
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^ » CASECODE 

VJDC Users should use the following casecode 

W 522001,C0N 

for computer charges and the associated ISD time charges 
forcopyingUserfilesto6250PPI, 

5. OUESTIQMS/PROBLEMS 

5.1 Questions or problems concerning the above should be 
directed to Sue Fielder Harry King, both on C0RET 
391 - 5 ^^ 6 . 


Cl, 

S . A, FIELD 
Data Center Hardware 
and S o f t vj a r e 
P e V e1 0 D m e n t and 
Coeraticns Research 
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DIVISION 4 - MISCELLANEOUS INFORMATION 

CHAPTER 2 - INFORMATION SYSTEMS MEMORANDUM 

SECTION 3 - SPECIAL INFORMATION 

SUBJECT - CONVERSION OF THE WDC ANS COBOL VERSION 4 
CATALOGUED PROCEDURES FOR VS2 





1. GENERAL 

1.1 The IBM ANS COBOL COMPILERS are designed to use main core via control 
parameters supplied to the COMPILER on the PARM field of the execute 

card or by defining parameters at system generation time. The compiler does 
not use the REGION parameter on the EXECUTE or JOB card to determine how much 
core is available for the COMPILER to use for execution. The WDC ANS COBOL 
V4 catalogued procedures were designed for OS/MVT where core is allocated 
in multiple of 2K. Since VS2 core is allocated in multiples of 64K, the 
compiler when run under VS2 has core allocated to it which it is not using. 

1.2 By merely modifying the SIZE and BUFSIZE parameters passed to the 
COBOL V4 COMPILER SO that all allocated core is used by the compiler 

our studies show that the elapsed time for compiles may be reduced on the 
average 25%. The studies to determine the optimum region and values for 
the SIZE and BUFSIZE parameters were done by R. L. Wilson at Omaha and 
R. A. Burns at Warrenville. 

1.3 These WDC ANS COBOL Version 4 Catalogued procedures will be modified 
as of January 12, 1976, All COBOL users should review any job which 

uses these catalogue procedures to ascertain that the REGION on the JOB 
card and the REGION on the EXECUTE card are the same to prevent any 
unnecessary job failures, 

2. COBOL CATALOGUED PROCEDURES 


2.1 Following is a listing of the modified catalogued procedures. 

2.11 C0B4C 

//C0B4C PROC LINES=55 

//CDS EX6C PGM-IKFCBLO0,REGIDN=128K, 

// PARM=*N0L0 40,N0DECK,LIN£C]MT=6LINE$,BUFSIZE=16K,SIZE=12:0K» 
//STEPLI6 00 □SN = SYS2.C0BGL4.LINK,DISP=SHR 

//SYS PR IN T DD S YSDUT=A,DC6= (K£CFM=FBA, LRECL~121f BLKS IZE-10891 

//SYSUTI OD UNIT~SYSDA,SPACE=ITRK,(12,5H 

//SYSUT2 DD UNIT=SYSOA,SPaCE=(TRK,{ 12f5H 

//SYSDT3 DD UNIT^SYSDA,SPACE = tIRK,19,5 IJ 

//SYSUT4 00 UNIT-SVSDA,SPAC£=tTRK,(6, 5n 
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2.12 COB4CG 

//C0B4CG PROC LDREG=84K,Ll!N}&S-55 

//CDB EX£C PGH=IKFC8L00,REGI0N-lZ8Kt 

// PAKM=*LLMECNT = GLIMESf3UtSlZE=:l6K,SIZE = 120K* 

//STEPLI3 00 DSN-SYS2.CnbrjL4.LlNK,DISP=SHR 

/ / SY SPRIN T D D S Y SOU T = A » DCB= ( RECF H=FBA , LRE CL == 121, BLKSIZE = 1089) 
//SYSUTl fJD UNIT=-SYSDA,SPACE=( TRK, (12,5 )> 

//SYSUT2 DD UNIT=SYSDA,SPAC£=(TRK,(12,5)^ 

//SYSUT3 DD UNIT=:SYSDA,SPACE=(TRK, (9,5) ) 

//SYSUT4 OD UIMIT=SYSDA,5PaCE=( fRK, (6,5n ^ 

//SYSLIN 01.) DSNiAME = C£LOADSeT,DISP=(MDD, PASS) ,UNIT=SySDA, ' 

// SPaCE=(40G, (50,10)),DCB=(R6CFM=FB,LRECL=80,BLKS1ZE=400) 1/71 
//GO EXEC PGM=LOADER,PARM=»MAP,LeT,SIZE=&LDReG*,REGION=€LDREG, 

// CUr>lL)-(5,LT,COB> ,TIHE=10 

//SVSLlN DO DSN = 4CLOADSET,DISP=( DLL),DELETE) 

//SYSlIS OD 0SN=SYS2.C0BtJLA*LIB,DISP=SHR 

//SYSLOUT DO SYSOUT=^A,UCb=(KECFH=FBA,LRBCL = 121,SLKSIZE=1211 
//SYSUDUMP DD SYSOUT=A,DCB=(RECFH=FBA,LRECL=121,BLKSIZE=1089> 1/71 

//SYSOUT DD SYS0UT=A,DCB=(RECFH=FBA,LRECL=120,BLKSIZE=I20) 


2.13 COB4CL 

//COB4CL PROC LINES=55 

//COB EXEC PGM=IKFCBLOO,REGIGN=12BK, 

// PARH=»LINECNT=ElINES,BUF=16K,SIZE=120K» 

//STEPLIB DD DSfM=^SY$2.CDB0L4.LINK, D1SP=SHR 

//SYSPRINT OD SYS0UT=A,DCB=(RECFM=FBA,LRECL=l2l,BLKSIZE=1089 ) 
//SYSUTl DO UNIT=SYSDA,SPACE=(TRK,(12,5)l 
//SY5UT2 DD UNIT=SYSDA,5PACE=(TRK,(12,5)) 

//SYSUT3 DO UNIT=SYSOA,SPACE=(IRK,(9,5)) 

//SYSUT4 DD UNIT=SYSDA,SPACE-(TRK, (6,5)) 

//SYSLIN DD DSNAHE=GLOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 

// SPACE=(400,(50,10)),DCB=(RECFH=FB,LRECL=80,8LKSIZE=400) 1/71 
//LKEL) EXEC PGM=ATTI £WL , PAKH= • XREF ,LIST,LET • ,COND= ( 5,LT,COB) , 

// REGI0InI = 126K 

//SYSLIN DD DSNAME = GLOADSeT,OISP = (OLD,OELETE) 

// 00 ODNAME^^SYSIN 

//SYSLMDu DO DSN = GG0DATA I RUN),DISP=(NEW,PASS), 

// UNIT=SYSDA,SPACE=(TRK,(9,,1)) 

//SYSlIB uD DSN=^SYS2 .C0BuL4.LIb, DI SP = SHR 
//SYSUTl uu UNIT=SYSDA,SPACE=(TRK,(14,5)1 
//SYSPRINT DD SYSOUr=A 
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2.14 C0B4CLG 


//C0d 4CLG PROC LlNes=55 
//CLib EXIC PGM^IkFCSLuO, PARLINECfaT = fcLlI^L S',REGI[JN-12BK 

//STEPLIb DD DSM=bYS2 .Cu80l4.LINK,D1SP=SHk 

//SYS PRINT Du SYSLUl=A,DCB = (RECFH=FBA,LRtCL-121,BLKSIZE = 108V) 
//SYSUOUMP DD SYSQUT-A 

//SYSUTI DD UNlT=SYSDA,SPACE=(TRKt(12,5)) 

//SYSUT2 uD yNIT=SYSDA,SPACfc=(TRK,(12,5)) 

//SYSUT3 DD UNIT=SYSDA,SPACF=(TkK,(9,5)) 

//SYSUT4 DD UNIT = SYSDA,SPACl=(TRK,(0,5) ) 

//SYSLiN DD DSN=Di_OaDSET ,D1SP=(HDD,PASS ),UNIT=SYSDa, 

// SPaCE = (400, (50,10) ) ,DCB=(RECFi1=Fb,LRbCL = 8u,BLKSIZE=400 ) 

//LKED EXEC PGM=ATT1 EWL ,PARM=• XRFF ,LI ST,LET • ,COND=( 5 ,LT,COb ), 

// REGiON=l28!S 

//SYSLIN DD DSN=SlOADSET,DISP=(DLD,DELETE) 

// DD DDNAME=SYSiN 

//SYSLMQD DD DSN=LGODATA(RUN),DISP=( NEW, PASS),UNITESYSDA, 

// SPACt=(TRK,(9,,1)) 

//SYSLIB DD DSN=SYS2.CaBUL4.LIB,DISP=SHR 

//SYSUTI DD UNIT=^(SYS0A,SEP = (SYSL1N,SYSLMUD)),SPA(,E = (TRK,(14,5)) 
//SYSPKINT DD SYSGUT=A,SPACE=(TRK,(5,5)) 

//GO EXEC PGM==^.LKED.SYSLP«UD,COND~( ( 5 ,LT , CO E ) , ( 5 ,LT ,LKED) ) ,T1ME=10 
//SYSUDUHP DD SYSnUT=A 

//SYSOUT uD £YSGU1=A,DCB = (RECFM=:^FbAtLRECL = I20,BLKSIZE = X20) 


2.15 C0B4C0L 

//C0B4C0L PROC LlNES=35 

//COB EXEC PGM=CPXUPTSM,KEGI0N=1Z8K, 

// PARM=*NODECK,NOMAP,LINECNT=&LINES» 

//STEPlIB do DSN=SYS2.ANSlIB,DISP=SHK 
// DD DSN = SYS2.CUBGL4.LINf<,DISP=SHR 

//SYSINl DD DSNaME=SSSYSIN1,UNIT=SYSDA,SPACE=(605,(4640,580)) 

//SYSIN2 DD DSNAME=SCSY$IN2,UNIT=SY$0A,SPACE=(4C0,(240,80)) 

//statsdd od psn=optstatu,disp=shr 

//SYSUDUHP DD SYSQUT=A 
//SYSPRINT DD SYSOUT=A 

//SYSPUJMCH OD SYS0UT=^P,OCb=(R6CFM=F,6LKSI2E=80) 

//SYSUTI DD DSN=CSYSUT1,UN1T=SYSDA,SPACE=(460,(6000,1500)) 
//SYSUT2 DD DSN=^SSYSUT2,UNIT=SYS0A,SPACE=(460,(700,100)1 
//SYSUT3 DD OSN=£;SYSUT3,UNiT=SYSDA,SPACE=(460,(700,100)) 

//SYSUT4 uD DSN=8SY$Uf4,UNIT=SYSDA,SPACE-(460,(700,100)) 

//SYSLIN DO DSN=CLOAOSET,UNIT=SYSOA,DISP=(MOD,PASS), 

// SPACE=(400,(240,80)),0CB=8LKSIZE=400 

//LKED EXEC PGM=ATTIcWL,REGION=128K,COND=(5,LT,COB), 

// PARM=»XREF,LIST,LET* 

//SYSLiN DO DSiM = SLOADSET,DISP=(OLD,DELETE) 

// OD DDNAME=SYSIN 

//SYSLHOU DD DSN=CG0SET(L0A0M0D),OISP=(,PASS),UNIT=SYSDA, 

// SPACE-(TRK,(9,,1)) 

//SYSLIB OD D$N=SYS2.C0BUL4.L1B,DISP=SHR 
//SYSUTI DD UNIT = SY$[)A,SPACE=(TRK, (14,5)) 
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3. QUESTIONS/PRQBLEMS 

3.1 Any problems or questions regarding these changes should be directed 
to D. J. Sloan on CORNET 391-5256 or H. L. King on CORNET 391-5446. 






H. L. KING 
Divisional Planning, 

Data Base Administration, 
Standards and Control 
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STANDARDS FOR USING THE DATA PROCESSING SYSTEM 
NAMING STANDARDS 

SECTION 3 - DATA SET NAME STANDARDS 


1. PRODUCTION DATA SET NAME STANDARDS 

1.1 All production data sets which are not temporary data sets 
shall have a DSNAME consisting of at least three levels, 

1.11 Level 1 of the DSNAME must be one of the following: 

PRDn. for production data sets 

PRDGn. for production generation data sets 

where n is the assigned PGN (Production Group Number) 
for the application creating the data set (see Division 2 
Chapter 1, Section 3 for assignment of a PGN), 

1.12 Level 2 of the DSNAME must be the assigned PSI (Project or 
System Identifier) for the application creating the data set. 

(see Division 2, Chapter 1, Section 3 for assignment of PSI), 

1.13 All other levels used in a production DSNAME are chosen 
by the application system developer as indicated by ”x” 

in the following examples where ”COS” is the system PSI and 7 is 
the PGN; 

DSNAME«PRD7.COS.xxxxxxxx 
DSNAME-PRDG7.COS.xxxxx,xxxxxxxx(+l) 

DSNAME-PRD7,COS,xxx.xxxxx.xxxxxxxx 

2. NON-PRODUCTION DATA SET NAME STANDARDS 

2.1 All non-production data sets (excluding temporary data sets) 
which are either tape data sets which will be catalogued, 

or are disk data sets must have a DSNAME of at least three levels, 

2.11 Level 1 of the non-production DSNAME shall be of the 
form DSNAME-DEV for data sets created by the developers 

at the central site, or DSNAME»DEVnn for those created by 
developers at remote locations, where nn represents station 
number assigned to the remote locations (see Division 2, Chapter 1, 
Section 2, Appendix A), 

2.12 Level 2 of the non-production DSNAME shall be the PSI 
of the application creating the data set* 
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2.13 All other levels of the DSNAME are at the option of the 
developer. For example; 

DSNAME-DEV.DPM.xxxxxxxx 
DSNAME*DEV06.XMM.xxx,xxxxx 

3. CONFORMANCE TO NAMING STANDARDS 

3.1 All development or extensions of current systems are expected 
to observe naming standards. 

3.2 Systems now in production are not required to change data 
set names which conform to the previous standard, however 

when systems are modified, the standards should be observed. 
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DIVISION 4 - MISCELLANEOUS INIORMATION 
CHAPTER 2 -* INIORMATION S/STEMS MEMORANDUM 
SECTION 3 ~ SPECIAL INIORMATION 

SUBJECT - CONVERSION BROM OS MVT RELEASE 21.7 TO OS/VS2 RELEASE 1.7 


1. TESTING OB PRODUCTION JOBS UNDER VS2 


1.1 Central Operations has noticed that very tew production jobs 
are being processed under VS2. It is imperative that all 

production jobs be made operative under VS2 via either a parallel 
test or an actual production run prior to the 370/158 (Sjf3)’s 
conversion to VS2 on October 20, 1975. Bailure to do so could 
result in a huge production backlog on this date. The large 
majority ot production jobs should incur no problem under VS2; 
however, based on the experience ot development jobs run under 
^ VS2, it is apparent that there are many programs pertorming 

cA quasi-legal or illegal operations during execution which were never 

detected under MVT and which will almost certainly tail under VS2. 

1.2 To tacilitate testing production jobs under VS2, central operations 
will bring up VS2 on the 370/168 (Sf2) at midnight WDC time 

as ot Sunday September 21, 1975. VS2 will be available tor testing 
trom 00:01 to 17:00 WDC time Monday through Briday. 

1.3 A moditication has been made to the operating system to allow 
users to selectively run production jobs via a //*MAIN T/PE=ANjf 

Q S: control card under VS2 it VS2 is available and under OS/MVT it 

VS2 is not available. Attached is a copy ot "Production Jobs on VS2" 
which appeared in ASP NEWS and which turther explains this moditication. 




2. CONVERSION OB CPU^S TO VS2 

2.1 On October 20, 1975 the 370/158 (Sf3) will be converted to 

VS2 release 1.7. At this time the two real CPU’s (the CPU’s ASP 
is not resident on) will be run under VS2 twenty-tour hours a 
day. The local ASP processor will continue to run OS/MVT release 
21.7. Any user who teels that a particular job must run under 
OS/MVT has to have the approval ot Department 9411 prior to submitting 
a job to run only on the local CPU. Any Job which does not have 
prior approval ot Department 9411 is subject to cancellation by 
Central Operations with no prior notice. 
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3. PROBLEMS/QUESTIONS 


3.1 Any problems or questions concerning this matter should 
be directed to H. L. King, Department 9412 on 8-391-5245 
or R. J. Shitter, Department 9411 on 8-391-5455. 

cv H. L. KInO- 9412 


At t. 





4c4c4c4(Kc«3te*:4c«4c«:tc)(c:ic4c#XcA!9(>(c’ic3((9tc>tc«4c4:#4:«#>ici{c4:4^4c4c##«:#9^4:>«t)4c4E* 

♦ PRODUCTION JOBS ON VS2 ♦ 

* *. 

* SPPECTIVE MONDAY AUGUST 25, THERE WILL BE A MODIFICATION IN ASP TO ♦ 

* PERMIT SELECTED PRODUCTION JOBS TO RUN ON VS2. IT IS ESSENTIAL THAT WE * 

* TRY AS MANY PRODUCTION SYSTEMS AS POSSIBLE AT LEAST ONCE BEFORE PROCEEDING * 

* ANY FURTHER WITH THE CUTOVER. BASED ON THE EXPERIENCE WITH DEVELOPMENT * 

* JOBS ON VS2, IT IS APPARENT THAT THERE ARE MANY PROGRAMS DOING * 

* gUASI-LEGAL OR OUTRIGHT ILLEGAL THINGS DURING EXECUTION THAT' WERE NEVER * 

* DETECTED UN MVT, THESE ARE ALMOST CERTAIN TO FAIL ON VS2. ★ 

* ■ - ■ ♦ 

* WE would lire all SUBMITTERS OF PRODUCTION JOSS TO CONSIDER RUNNING * 

* THEM ON VS2. SINCE VS2 IS NOT NOW AS STABLE AS MVT, IT,WOULD BE WISE ♦ 

* initially TO SELECT JOBS WITH EASY RERUN CAPABILITIES, ETC. AS THE SYSTEM ♦ 

* BECOMES MORE AND MORE STABLE, SOME MORE CRITICAL PRODUCTIONS JOSS COULD BE ♦ 

* RLM. THE INITIAL PRUDUCTION JOBS RUN ON VS2 ARE EXPECTED TO EXPERIENCE * 

* EXTREMELY QUICK TURNARUUND, BUT THE TURNAROUND FOR OTHER PRODUCTION WILL ‘ ♦ 

* ALSO IMPROVE AS THE LOAD ON THE FIRST SHIFT PRODUCTION CPU'S IS REDUCED. ■ * 

^ * 

* TO INDICATE A PRODUCTION JOB'S ELIGIBILITY FOR VS2, INSERT * 

*■ ♦ 

* //^'MAIN TYPE = ANY * 

* ♦ 

* IN THE RUN DECK. NORMALLY, TYPE=ANY INDICATES THAT THE JOB CAN RUN UNDER * 

* ANY CONTROL PROGRAM, AND IS THE ASP DEFAULT. WARRENVILLE OPERATIONS KEEPS * 

* PRODUCTION OFF VS2 BY TURNING OFF THE SCHEDULING FOR CLASS P {PRODUCTION? * 

^ ON THE VS2 MAIN. WITH THE MODIFICATION WE aRE IMSTALLING, AN EXPLICIT * 

* REQUEST FOR TYPE=ANY WILL RESULT IN THE JOB'S BEING PUT IN A SPECIAL * 

* SCHEDULING CLASS {=ANY) WHILE STILL RETAINING ITS OTHER ATTRIBUTES AS A ♦ 

* PRODUCTION JOB. THESE JOBS MAY THEN RUN UN ANY SYSTEM. TO FORCE A JOB TO ♦ 

* RUN ONLY ON VS2, CODE TYPE=VS2. NOTE THAT IF VS2 IS NOT UP, A JOB WITH * 

* TYPE=VS2 WILL NOT RUN AT ALL (UNTIL VS2 IS NEXT IPL'O). * 


♦ IMPORTANT NOTES: ♦ 

♦ 1) this feature is incompatible with THE USE OF THE //♦MAIN CLASS= ♦ 

♦ PARAMETER. IF A //♦MAIN CARD WITH THE CLASS= PARAMETER IS PRESENT, ♦ 

♦ the TYPE=ANY FEATURE WILL BE IGNORED, AND THE NORMAL SCHEDULING ♦ 

♦ FOR THE SPECIFIED CLASS WILL APPLY (WHICH MEANS THE JOB WILL MOST ♦ 

♦ LIKELY NOT GET TO A VS2 MAIN?. ♦ 

♦ 2) THIS METHOD IS SLIGHTLY DIFFERENT FROM THE METHOD UNOFFICIALLY ANNOUNCED ♦ 

♦ PREVIOUSLY. THE PARAMETER IS NOW TYP£=ANY, NOT SYSTEM=ANY AS PREVIOUSLY ♦ 

♦ PLANNED. * 

♦ 3) THE SAME RESULT MAY BE OBTAINED BY USING //♦MAIN CLASS=ANY, BUT THIS ♦ 

♦ HAS Two DISADVANTAGES: » 

♦ A? THE CLASS=ANY MAY OVERRIDE ANOTHER CLASS SPECIFICATION (SUCH AS ♦ 

♦ CLASS=XXWEDG£> DEPENDING ON ThE ORDER OF THE //♦MAIN CARDS. TYP£=ANY ♦ 

♦ WILL NOT OVERRIDE, AS EXPLAINED IN NOTE (1). * 

♦ B? AN ADDITIONAL MAIN SCHEDULING CLASS ADOS OVERHEAD TO THE SYSTEM, ♦ 

♦ SO we INTEND TO REMOVE THE "ANY'' CLASS AS SOON AS VS2 IS CUT OVER. ♦ 

♦ AT THAT TIME, ALL CLASS^ANY CAROS MUST BE REMOVED OR THE JOB WILL ♦ 

♦ FAIL IN INPUT SERVICE, WITH TYPE=ANY, ALL WE NEED DO IS REMOVE THE ♦ 

♦ MODIFIED CODE, AND THE TirPE=ANY WILL B= EFFECTIVELY A NO-OP. * 


Western Electric Company Division 4 Chapter 
Warrenvilie Data Center 3. Section 3 9/16/75 
PROGRAMMING S & R MANUAL Remove: 1/10/76 



Appendix A 

Western Electric Company Division 2 Chapter 6 

Warrenville Data Center 1. Section 6" 

PROGRAMMING S & R MANUAL Issue 2 Date 


STANDARDS FOR USING THE DATA PROCESSING SYSTEM 
SECONDARY STORAGE 

SECTION 6 - THE TAPE LIBRARY SYSTEM 





1. GENERAL 
1.1 Purpose 

1.11 The Tape Library System is used to control Standard Label 
tape assignments to individual programmers and production 

systems, to maintain enforced write protection for assigned tapes, 
and to release for scratch those assigned tapes as specified by 
the owner via methods of retention period or cyclic tape retention. 
Tapes with no standard labels or with non-standard labels are 
outside the scope of this system. 

1.12 The Tape Library System was originally created at the 
Hawthorne Data Center to enable users to keep track 

of their magnetic tapes when access to the physical tape reel 
was eliminated. 

1.121 A batch run is made daily to maintain a set of up-to- 
date records on those tapes currently assigned to 

each user listing the specifications of those tapes (i.e. 
density, labels, recording format, volume serial, etc.), 
what files reside on each tape, and when the retention period 
of each tape expires. 

1.122 The user Interface with the Tape Library System 
batch run is designed to reduce to a minimum the 

effort required for this record keeping. 

1.123 At the time the Tape Library System batch run was 
designed, the operating organization was still 

using external labels for all tapes in use. 

1.13 When the move of data processing operations from 
Hawthorne to the Warrenville Data Center was being 

planned, it became apparent that it would no longer be practical 
for the operations staff of the computer room to be solely 
responsible for maintaining all the Standard Label tapes due 
to the increasing number of tapes to be handled. The Tape 
Library System was therefore expanded for the Warrenville Data 
Center to Include on-line facilities which would automate 
some of the functions previously performed manually: 
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1.131 The on-line Tape Library System automatically assures 
proper retention of production and non-production 

outputtapcreels. 

1.132 The on-line Tape Library System automatically releases 
for reuse (scratch) those tapes which have been 

retained past the release date designated when the tape vras 
createdorlast renewed. 

1.133 Virtually all standard label tapes are controlled 

by the on-line Tape Library System. Both production 
and non-production jobs must interface with the system to 
use standard label tapes. 

1.134 The on-line Tape Library System automatically 
releases for reuse those tapes for which Cyclic 

Tape Retention has been specified and which, according 
to owner specifications, are no longer required. 

1.14 The Tape Library System, both on-line and batch modes, 
allow assignment of tapes only to registered data 
processing users (see Div. 2, Chap, 1 for registration methods) 
as indicated by the user-ID in the name field of each JOB 
card. User-ID is defined in Div. 2, Chap. 4, Sect, 4 of 
this manual, 

2. TAPE LIBRARY SYSTEM - BATCH MODE FACILITY 

2,1 The Tape Library batch run is made dally at the central 
site (WDC) during the second shift, 

2,11 Input to the dally batch run is from several sources: 

2.111 Input request cards (as described below) prepared 
by programmers at the central site are collected 

at the programmer service counter in the computer room. 

2.112 Input request cards originated by programmers at 
remote sites are collected and are submitted 

as SYSIN data in the TLSDAYxx (where "xx'* is the remote 
site terminal line number) job. This job must be run once 
(and only once) each day Monday through Friday at 16:00 
(4:00 P.M.) Warrenville time, even if no request cards 
are submit ted. 
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2,2 Preparing Request Card Input 

2.21 There are three types of action which are performed 
for users by the batch runs 

2.211 A user may acquire a tape for his own use for 

a specific period of time. This is not recommended 
as a method of acquiring a scratch tape. Such tapes should be 
acquired as needed by the on-line Tape Library System (see 
Div. 2, Chap. 6, Sect. 6, paragraph 3.4) during JOB execution. 

2.212 A user may renew (extend the specified period of 
of time) of a tape previously acquired either via 

the batch run (2,11 above) or via the on-line Tape Library 
System facility (paragraph 3 of this section), 

2.213 A user may release a previously acquired tape 
prior to the expiration of the specified time 

period. 

2.22 These actions are accomplished by the user's sub¬ 
mission of punched request cards containing one of 

three permissable request codes with appropriate operands. 

Each field of the request card must be separated by at least 
one blank column: 

2.221 ACQUIRE request cards are submitted to obtain the 
exclusive use of a standard label magnetic tape 

and must contain the following fields: 

keyword 'ACQUIRE* 

* release date (MM/DD/YY or M/D/YY) 
user-ID (see Div. 2, Chap. 4, Sect. 4) 

* Optional, if omitted maximum development 
retention period is assumed. (see 
paragraph 2.231 below) 

2.222 RENEW request cards are submitted to change the 
release date of a tape previously acquired and 

must contain the following fields: 

keyword 'RENEW* 

volume serial number (must be six digits) 

* new release date (MM/DD/YY or M/D/YY) 
user-ID (see Div, 2, Chap. 4, Sect, 4) 

* Optional, if omitted maximum development 
retention period is assumed. (see 
paragraph 2,231 below) 



Western Electric 

C om.p any 


Appendix 

Divis ion 

A 

2 Chapter § 

-A 

Warrcnville Data 

Center 

A. 

Section ig 

t; 


PROGRAMMING S & T 

> MANUAL 


Issue 2 

Date 



2.223 RELEASE request cards are submitted to release, 
for use as scratch, a previously acquired 
tape prior to the expiration of the current release date 
recorded for the tape by the Tape Library System, and must 
contain the following fields: 

keyword 'RELEASE* 

voltime serial number (must be 6 digits) 
user-ID (see Div. 2, Chap. A, Sect. A) 


If a RENEW request card is not submitted prior to the date 
recorded for release by the Tape Library System, the tape will 
automatically be released for use as a scratch tape during the 
hatch run of that date or the next working day thereafter. 

Releasing a tape from the Tape Library System does not 
uncatalog it. VJhen a tape is released, its owner should 
also uncatalog that tape to maintain consistency between the 
catalog and the Tape Library System. 


2,23 Retention period restrictions apply to both RENEW and 
ACQUIRE request cards release dates, These 
restrictions are set by the Operating Organization depending 
on the inventory of Standard Label tapes available for general 
use. The current retention period restrictions are shown 
below but are subject to change at the descretlon of the 
Operating Organization with advance notice to all users, 

2,231 Maximum Retention Period Tape Use for : 


2 years (on-line only) 

bO days (on-line only) 

30 days (on-line and all batch) 


P roduc tion 

Maintenance 

Development 


2.2A Request Card Examples 

ACQUIRE WN3A11SHITH 

RENEW 703205 7/2/73 WN3A11SKITH 

RENEW 703205 UNTIL 07/02/73 FOR WN3A11SMITH 

RELEASE 703205 WN3A11SMITF 




( ' ) 
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2,3 I User Output From Tape Library Batch Run 

2,31 The response to a request card submitted by a user to 
the Tape Library batch run will be in one of the 
following forms and will be available (in the BIN number 
registered on the bin table for the user-ID punched in the 
input card) the first working day after the day the request 
was submitted. 

2.311 Printed Error Message - If the syntax of the request 
card is found in error or if for any other reason 

the request cannot be serviced, error messages will be routed 
to the registered BIN number for the user-ID punched in the 
input request card. Messages for incorrect user-IDs are 
posted or the person is contacted if necessary, 

2.312 Printed Verification of Action Taken - The response 
to a RELEASE request is a message routed to the 

user’s BIN number. 

2.313 Punched RENEW card - The response to a successful 
ACQUIRE or RENEW request (also for any non- 

production tape acquired during JOB execution by the on-line 
Tape Library System) is a punched and interpreted RENEW 
card. Example: 

RENEW 703205 UNTIL 07/02/73 FOR WN3411SMITH BIN-139 

This punched card can be used for reference and also by dupli¬ 
cation with a new release date, can be used for creating a 
RENEW request input card. 

2,32 The Output Received Weekly. 

2.321 Each week users having active acquired tapes 
within the Tape Library System will receive 

a "TAPE RETENTION LIST" report in their respective bins. 

This output lists all pertinent information for each tape 
assigned to the user. Included are: 

volume serial number JOBNAME creating tape 

date created DSNAME (44 characters) 

release date users BIN number 

2.322 Each user is encouraged to submit RELEASE 
request cards prior to the recorded release 

date whenever the assigned tape is no longer required. 
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3. TAPE LIBRARY SYSTEM ~ ON-LINE MODE FACILITY 

3.1 The Tape Library System on-line facility is in execution 
whenever the Data Processing System is in operation. 

Its purpose is to provide for on-line tape assignments to 
users or production systems of output tapes created during 
a JOB execution. This assignment is recorded within the 
Tape Library System just as those tapes assigned by the 
Tape Library batch run upon the receival of an ACQUIRE request 
card. 

3.2 The basic features of the on-line Tape Library System are: 

3.21 Production system jobs and non-production jobs can 
acquire tapes while executing a job. Only unassigned 

tapes will be accepted for a scratch tape (JCL DD statement 
has no VOL=SER* parameter,DISP parameter is NEW), 

3.22 Assigned tapes within the Tape Library System are 
write protected. No user (user-ID in the JOB card) 

may write on a tape which is assigned in the Tape Library 
System to some other user (a different user-ID), This 
eliminates the accidental overwriting of data. An attempt 
to violate this feature will cause the mounted tape to be 
unloaded and a scratch tape substituted, 

3.221 This write protection feature will not prevent 
a user’s non-production JOB from overwriting 

his own data on a tape reel assigned to him, when the DD 
statement specifically requests the tape by specifying 
the volume serial number or by reference to the catalogue. 
Overwriting such a tape will establish a new release date 
for the tape serial number as Indicated in the JCL DD statement. 
This allows the user to continue to use the same tape volume 
serial number any number of times, 

3.222 If, during the execution of a production JOB, an 
attempt is made to overwrite data on a tape 

previously assigned to the same production system identifier 
(user-ID) by the Tape Library System, a message to the 
main console will be generated, requesting a reply from the 
operator: 

LIB070 TAPE nnnnnn ASSIGNED TO xxxxxxxx x 

The operator's reply, based upon Information contained in the 
Operating Instruction for the production sys,tem as prepared 
by the applications programmer, can be "U” to allow over¬ 
writing the tape or "M" which will cause dismounting of the 
tape and a request for a mount of a scratch tape in its place. 
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3.23 Tape used within a JOB and not previously acquired 
nor assigned during the execution of the JOB by the 

on-line Tape Library System are considered work tapes and 
are immediately returned to the scratch pool after JOB 
completion. 

3.24 The Tape Library System determines what tapes are 
scratch tapes (retention period has expired). A 

list of scratch tape volume serial numbers Is available to 
the operating organization at any time. Such a list is 
used by the tape vault librarian to select scratch tapes for 
use by the Data Processing System. 

3.25 Standard Label tapes stored in the WDC Computer Room 
tape vault have no external labels other than the 

permanent volume serial number label affixed to the tape 
reel when it was purchased. 

3.26 NjEL standard label tapes under the control of the 

Tape Library System shall be removed from the Computer 
Room. Any JOB which creates a data set which must be physically 
transported on tape out of the WDC Computer Room must adhere 
to Div. 2, Chap. 6, Sec. 7r Creating Tapes for Disposition 
Outside Warrenville Data Center, 

3.27 The required tapes for all JOBs must be specified 
via JCL DD statements and ASP control cards either 

by use of specific volume serial number or by reference 
to a catalogued data set. 

3.28 Whenever a Tape Library System tape is used In 

a STEP and the third DISP parameter is explicitly specified 
as DELETE and the STEP falls, then that data set will be 
uncataloged and its expiration date will be changed to the current 
date plus one; provided the USERID and data set name are 
the same as when the tape was originally created. 

3.3 To ACQUIRE or RENEW a tape on-line, the JOB card 
name field must contain a registered user-ID, 

3.31 Registration procedures are detailed in Div. 2, 

Chap. 1. 

3.32 User-ID format is defined in Div. 2, Chap. 4, Sec. 4. 

3.33 An attempt to assign a tape on-line to an unre¬ 
gistered user-ID will cause the job to be auto¬ 
matically cancelled (ABEND 222). 
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3.4 To ACQUIRE a tape via the on-line Tape Library System, 
all of the following conditions must be true, A 

successful ACQUIRE during a non-production job will cause 
the generation of a RENEW request card by the next Tape 
Library batch, run (see paragraph 2.313 of this section). 

3.41 The tape to be assigned must be a scratch tape. 

3.42 "^he tape file must be opened for OUTPU'T'' 

3.421 Tapes are assigned by the on-line Tape Library 

System during OPEN processing for outpxit tape files 
and during volume switching for multi-reel output files. 

3.43 EXPDT or RETPD must be specified in the LATFL parameter. 

3,431 The length of time the tape is to remain assigned 
must be specified. Production systems should use 
the RETPD parameter, which allows retention period to be 
stated in length oR time from the current date. FX^DT should 
be used only when it is desirable to have a tape released 
on a specific date. The normal OS FXPDT and RETPD have been 
disabled since the protection afforded by the Tape T,i br ary 
System is more complete. 

3.4311 Specifying RETPD-O assigns the tape for only 

the duration of the run day and is automatically 
released during the next Tape Library batch run. 

3.5 To RENEW a previously assigned tape via the on-line 
Tape Library System, all of the folloxv^ing conditions 

must be true, A successful RENEW during a non-production 
job will cause the generation of a RENEW request card by 
the next Tape Library batch run (see paragraph 2.313 of 
this section). 

3.51 The tape to be renewed must be already assigned 
to the user-ID in the JOE card, 

3.511 The tape must have been previously acquired by 
either the hatch run or on-line facility of the 
Tape Library System. The User or production system will 
overwrite their own previously recorded data on the assigned 
tape, 

3.52 The actual volume serial number of the assigned 

tape must he specified (by JCL or catalog reference). 

3.521 The DD statement must not request a scratch tape. 




4 ^ 
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3.53 The tape file must be opened for OUTPUT. 

3.531 Tape renex^al by the on-line T«ape Library Cyatem 

occurs during OPEN processing for output tape files. 

3.5A EXPDT or RETFD must be specified in the LAPEL 
parameter, 

3,541 These two parameters are further explained in 
paragraph 3,43 of this section. 

3.55 The DISP parameter must not be MOD 

3.551 The Tape Library System will not change (RENEW) 
the release date for any assigned tape x^hen 
DISPsMOD is used. 


3.56 The data set sequence number subparameters of the 
LAREL parameter must be *1’ or omitted. 

3.561 The Tape Library System v/lll not change (RENEW) 
the release date of an assigned tape if the 
data set is not the first one on the tape. 

3.6 Specifying Cyclic Tape Retention . This method is to 
be used whenever a xiser needs to specify the number 
of generation levels of a Ceneratlon Data Group x.Thlch are 
to be retained in the Tape Library System in his name. 

3.61 In order to build a Generation Data Group, an 

index must be created via the TM^ utility lEUPROGM 
(See IBM System/360 Operating System: TITILTTlES) . Cyc lie 
Tape Retention will be indicated x^/henever the BLDG 
statement contains the DELETE parameter xsrhen the Index is 
created. 



3.62 If (’yclic Tape Retention is indicated, tapes vThich 

are removed from the index are not only uncataloged, 
but also the retention date on that tape is changed to 
the current date plus one in theTf’ape Library System. 


3,63 All statements in Div, 2, Chap, 6, Sec. 6, regarding 
acquiring, renewing, and releasing tapes apply 
to tapes which are controlled by Cyclic Tape Retention, 
Tlierefore, when a tape*s expiration date is reached, it x^rill 
be released to the scratch pool. With this in mind, a generous 
, retention period should be specified whenever Cyclic Tape 

Retention is used. 
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3,64 In releasing tapes as they are deleted from the 

Generation Data Group index, there must be a match 
between the user ID of the owner of the tape and the user ID 
of the JOB during which deletion is to take place. This 
implies that Generation Data Sets which have members generated 
by more than one user ID should avoid using Cyclic Tape Retention, 

4, TAPE LIBRARY SYSTEM - UTILITY PROGRAMS 

4.1 The TLSBINL utility program produces a formatted listing 
of the contents of the bin table by organization number, 

A parameter may be specified to limit the list to one location 
or to one organization within a location, 

4.2 Possible formats for a user supplied parameter are: 

PARM-LL where LL is an alphabetic location code. 

The bln table list produced will include 
only User-ID*s registered for this location, 

PARM*LLDDDD where LL is an alphabetic location code 

and DDDD is a department number (numeric). 

The bin table list produced will include 

only User-^ID’s registered for this organization. 

If no parameter is specified, the entire bin table will 
be listed, 

4.3 Execution of TLSBINL should be accomplished via the 
cataloged procedure TLSBINL which is documented in 

Division 3, Chapter 5, Cataloged Procedures, 
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CATAUTIL - CATALOG MAINTENANCE UTILITY 


1. GENERAL 

1.1 CATAUTIL is a Western Electric utility whose 
purpose is to perform functions on the catalog 

that are not available through lEHPROGM. 

1.2 CATAUTIL incorporates the following facilities: 

1.21 Delete an index and all subordinate Indexes 

and uncatalog any data sets that are subordinate 
to these indexes. 

1.22 Change generation data group index specification 
without previously uncataloging all data sets 

and subsequently re*>cataloglng all data sets. 

1.3 The return code will be the highest one encountered 
in the execution of the program, 

2. CONTROL CARDS 

2.1 The control card for deleting an index is as 
follows: 

label DLTINDEX INDEX»na,e .CVOL-serial 
where: 

2.11 INDEX * name 

Specifies the index level that is to be deleted 
and this Includes deleting of all subordinate 
indexes and uncataloging all subordinate data sets, 

2.12 CVOL » serial 

Specifies the volume serial number of the 
control volume on which the search for the 
index is to begin. If CVOL is omitted the index should 
either reside on the sytem residence volume or on 
a volume that is appropriately connected to by the 
first level of the index. 
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2.2 The control card for changing a Generation Data 
Group index specification is as follows: 

label CHNGBLDG INDEX-name ,ENTRIES-n 

, OPTION«*op tional ,CVOL»serial 

where: 


2.21 INDEX - name 


Specifies the name of the Generation Data Group 
index that is to be changed. 

2.22 ENTRIES*n 

Specifies the new number of entries for the 
Generation Data Group index which must not 
exceed 255. 


2.23 OPTION“optlon 

Specifies one character option selection as 
follows: 


OPTION MEANING 


L 


Leave option as previously specified 


E Empty option as stated for BLDG 

statement in the IBM utilities 
manual. 


D Delete option as stated for BLDG 

statement in the IMB utilities 
manual. 

B Both Empty and Delete 

N Neither Empty or Delete just 

uncatalog 

2.24 CVOL«serlal 


Specifies same as in paragraph 2.12 above. 
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3. JCL STATEMENTS 

3.1 In general the following JCL is required 

// EXEC PGM-CATAUTIL 

//SYSPRINT DD SYSOUT=»A 

//SYSIN DD * control cards follow 

3.2 If the control volume is not a permanently resident 
volume then a DD statement should be placed in 

the JCL to Insure the volume is mounted, 

3.3 The basic module takes 24K to execute and requires 
additional 2K for each 30 data sets cataloged in 

a Generation Data Group that is being changed with a 
GHNGBLDG control card, 

4. EXAMPLES OF USE 

4.1 Example 1: There exists two Generation Data Groups 
below the NODE A.B both of which are no longer 

needed. 

// EXEC PGM«CATAUTIL 
//SYSPRINT DD SYSOUT-A 
//SYSIN DD * 

DLTINDEX INDEX»A.B 

4.2 Example 2: The number of entries for Generation 
Data Group index A,B,C is to be changed from 15 

to 35 the option is to be left as is. 

// EXEC PGM-CATAUTIL 
//SYSPRINT DD SYSOUT-A 
//SYSIN DD * 

CHNGBLDG INDEX“A. B. C, ENTRIES=*35 

4.3 Example 3: The option of delete is to be removed 
for Generation Data Group index A,B,D on control 

volume 222222 

// EXEC PGM«CATAUTIL 
//SYSPRINT DD SYS0UT*A 
//SYSIN DD * 

CHNGBLDG INDEX-A.B.D,OPTION-N, 

CVOL-222222 
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5. REFERENCE 

5*1 Description of lEHPROGM in I.B.M. Operation System 
Utilities Manual (GC28-6586) 


5.2 Return codes from catalog operations are described 
in F19.CTLG2 IBM System/360 Operating System 

(GC28-6550) Data Management for System Programmers, 

5.3 Cataloged procedure CATAUTIL In Division 3, 

Chapter 5, Section 1. 

5.4 Questions may be directed to J, R, Jackson, 11CB059430, 


) 
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CATAUTIL -» CATALOG MAINTENANCE UTILITY 


1. GENERAL 

CATAUTIL is a catalogued procedure which facilitates 
use of Western Electric utility program CATAUTIL, 

It employs a symbolic parameter for the purpose 
of designating the control volume, 

2. SYMBOLIC PARAMETERS 


CVOL 6 digit volume serial number of the control 
volume. Required only when control volume 
is not permanently resident. Default value 
is PROD06. 

3. USING CATAUTIL 


3.1 The procedure is invoked with an EXEC card with 
the optional CVOL parameter 

// EXEC CATAUTIL ,CV0L-cvol 

3.2 The cvol parameter is only required if the control 
volume is not permanently resident 

3.3 Control cards are required as described in 
Division 3, Chapter 2, Section 2| CATAUTIL 

4. EXAMPLES OF USE ; 

4,1 Delete index from TEST05 

// EXEC CATAUTIL,CVOL-TEST05 
//SYSIN DD * 

DLTINDEX INDEX-DEV05.F99 


4.2 Change Generation Data Group index on PROD06 

ft EXEC CATAUTIL 
//SYSIN DD * 

CHNGBLDG INDEX-PRDG22,FOO.TRANSNET,OPTION-N 

5. CATALOGUED Procedure Listing 


//CATAUTIL 

//CATAUTIL 

//SYSPRINT 

//SYSUDUMP 


PROC CVOL-PROD06 
EXEC PGM-CATAUTIL,REGION»30K 
DD SYSOUT-A 
DD SYSOUT-A 
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//RESVOL DD VOL-REF-SYSl.SVCLIB,DISP*SHR 
//CVOL DD UNIT*3330,DISP«SHR,V0L-SER»&CV0L 

6. REFERENCE 


Division 3, Chapter 2, Section 2, CATAUTIL 
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CATALIST ~ LIST CATALOG NODE POINTS 


1. GENERAL 

CATALIST is a catalogued procedure which 
facilitates use of the Western Electric Utility 
Program CATALIST. It employs symbolic parameters 
to specify control volume and node points, 

2. SYMBOLIC PARAMETER 

CVOL 6 digit serial numbers of control volume. 
Default PR0D06 

NODE NODE pointCs) designated to be listed 

3. USING CATALIST 

3.1 The procedure is invoked with an EXEC card and 
the required NODE parameter and optional CVOL 
Parameter. 

// EXEC CATALIST,NODE-*node* 

3.2 The CVOL parameter is required if the control 
volume is other than the default. 

3.3 IF MORE THAN ONE CVOL at a time is to be listed 
the PARM field should be coded as PARM»* V. 

4. EXAMPLES OF USE S 

4.1 List node point PRD22,F99 from catalog on 
PROD06 

// EXEC CATALIST,N0DE-VPRD22.F99* 

4.2 List node points DEV07,V01 and DEVOS,F99 from 
catalog on TEST05 

// EXEC CATALIST,CV0L»TEST05,NODE- 
*DEV07.V01,DEV05,F99* 

5. CATALOGUED Procedure Listing 

//CATALIST EXEC PGM-CATALIST, 

// PARM-* &CV0L,(&N0DE)* 

//SYSPRINT DD SYSOUT-A 

6. REFERENCE 

Division 3, Chapter 2, Section 2, CATALIST 
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CATALIST: SYSCTLG ON ASP31A 


DSNAME OR POINTER 


TYPE 

VOLSER 

FILE 4 

DEVICE TYPE 

CODE 

SPECIAL FEATURES 

PR0G4.MPC.MDMINPUT .G0017V00 


DATA 

SET 

704307 

1 

MAGNETIC 

TAPE 

3400 



PRDG4 .MPC .MOM INPUT.GO016VOO 


DATA 

SET 

726786 

1 

MAGNETIC 

TAPE 

3400 



PRDG4.MPC .MOM INPUT.GOul5 VOO 


DATA 

SET 

700272 

1 

magnetic 

TAPE 

3400 



PRDG4 -MP C .MDM IN?UT .G0014VOO 


DATA 

SET 

727172 

.1 

MAGNETIC 

TAPE 

34C0 



PRD&4.MPC.MDMINPUT.GGOISVCO 


DATA 

SET 

725203 

1 

MAGNETIC 

TAPE 

3400 



PRDG4,MPC .MDMXNPUT .G3'12V»'0 


DATA 

SET 

706919 

i 

MAGNETIC 

TAPE 

- 3400 



PRDG^.MPC .MOM input.GOO l iVOO 


DATA 

SET 

701930 

1 

MAGNETIC 

TAPE 

3400 



PRJG4.KPC .MHSFILE. 


GENR 

PTR 



MAX= 3 


CURRENT= 

3 

DELETE 

PRDG4.MPC.MmS FILE.GO054V CO 

- 

DATA 

SET 

717818 

1 

MAGNETIC 

TAPE 

3400 



PROG4.HPC.rt«SFILE-G0053V00 


DATA 

SET 

722678 

1 

MAGNETIC 

TAPE 

34CG 



PRuG4.MPC.HhSFILE-G0O52VOO 


DATA 

SET 

702365 

1 

MAGNETIC 

TAPE 

3400 



PRDG4.MPC .MMCSP^MaT . 


GENR 

PTR 



MAX= 10 


CURRENT^ 

10 

NEITHER 

PRDG4.MPC .MMCSRMOT .0003 IVCO 


DATA 

SET 

72 3680 

1 

MAGNETIC 

TAPE 

3400 



PR0G4.MPC .MKCSKMOT .GOC30VOO 


DATA 

SET 

704829 

1 

MAGNETIC 

TAPE 

3400 



PRUG4.HPC.MMCSRMOT.GD029VOO 


DATA 

SET 

711496 

1 

MAGNETIC 

TAPE 

3400 



PRD&4.MPC .HMCSRMOT .GOOZdVOO 


DATA 

SET 

714709 

1. 

MAGNETIC 

TAPE 

3400 



PR0G4.MPC .MMC SRMOT.GOOZTVOO 


DATA 

SET 

V13037 

1 

MAGNETIC 

TAPE 

3400 



PROGA.MPC,MMCSRMOT.G0026VO0 - 

r ' 

DATA 

SET 

716786 

1 

MAGNETIC 

TAPE 

3400 



PR0G4.HPC .MMCSRMOT.GO025V00 


DATA 

SET 

714059 

1 

MAGNETIC 

TAPE 

3400 


• 

PR0G4,MPC.MMCSRM0T .G0024VQ0 


DATA 

SET 

723496 


MAGNETIC 

TAPE 

3400 



PROG4 «MPC.MMCSRMOT .G002 3v00 


data 

SET 

709702 

i 

MAGNETIC 

TAPE 

3400 



PRDG4.HPC .;iMCSRMOT.GO022VO0 


data 

SET 

716086 

1 

MAGNETIC 

TAPE 

3400 



PRXi.MPC.KFMVRPT. 


GENR 

PTR 



MAX= 3 


CURRENT= 

3 

DELETE 

PR0G4.MPC.RFMVRPT.&0003VC0 


DATA 

SET 

719537 

1 

MAGNETIC 

TAPE 

3400 



PRDG4.HPC.RFMVRPT.G0002VQO 

;■ ■ 

DATA 

SET 

726579 

1 

MAGNETIC 

TAPE 

3400 



PKDG4.MPC .RFMVRPT.GOOOIVOO 


DATA 

SET 

707905 

1 

MAGNETIC 

TAPE 

3400 



FRDG4 .MP C .RriSFILE • 


GENR 

PTR 



HAX= 3 


CURRENT® 

3 

DELETE 

PR0G4.HPC.RHSFILE.GOOVIVOO 


DATA 

SET 

721013 

1 

MAGNETIC 

TAPE 

3400 



PRDG4.HPC .KHSFILE.GO090V00 


DATA 

SET 

701720 

1 

MAGNETIC 

TAPE 

3400 



PRDG4.MPC.RhSFILE.&OO a9VGC 


DATA 

SET 

709157 

.1 

MAGNETIC 

TAPE 

3400 



PRDG4.MPC.STRCSTJ. 


GENR 

PTR 



MAX= 10 


CURRENT® 

0 

DELETE 

PRDG4.HPC.weDGEM0. 


GENR 

PTR 



MAX= 20 


CURRENT® 

2 

DELETE 

PRD&4.MPC.WEDGEMO.&0O06VO0 

i 

DATA 

SET 

TRH002 


DIRECT ACCESS 

3330 

TRK 

OVFLOW,RPS 

PRDG4.MPC.WEOGEMQ.GOO05V0O 


DATA 

SET 

TRM002 


DIRECT ACCESS 

3330 

TRK 

OVFLDW,RPS 

PR0G4.MPC.WEDGeMW. 

! 

GENR 

PTR 



MAX= 20 


CURRENT® 

3 

DELETE 

PR0G4-MPC.WEDGEMW.G0003V00 

■ ^ 

DATA 

SET 

TRM002 

— 

DIRECT ACCESS 

3330 

TRK 

CVFLOW,RPS 

PR l)G4 .MPC .WEDGEMW .&00U2 VOO 


DATA 

SET 

TRM002 


DIRECT ACCESS 

3330 

TRK 

OVFLOWfRPS 

PRD&4.HPC.WEDGEMR.G0001VCO 


DATA 

SET 

TRHC02 


DIRECT ACCESS 

3330 

TRK 

OVFLO*rt,RPS 

PRD&4.MT&. 


INDEX PTR 








PRDG4.MT&.C0L0. 


GENR 

PTR 



MAX= 10 


CURRENT® 

10 

NEITHER 

PRDG4.MT& .COLO.G0360V00 


DATA 

SET 

707975 

1 

MAGNETIC 

TAPE 

3400 



PRD&4.MTG.COLO.G0359VOO 

.* - 

DATA 

SET 

704160 

1 

MAGNETIC 

TAPE 

- 3400 



PRDG4.MT&.COLO.G0358VOO 


DATA 

SET 

716084 

1 

MAGNETIC 

TAPE 

3400 



PRDG4.MTG.COLQ.&0357VOO 


data 

SET 

728557 

1 

MAGNETIC 

TAPE 

3400 



PRnG4.MIG.COLO.G0356V00 


DATA 

SET 

701373 

1 

MAGNETIC 

TAPE 

3400 


, 

PRD&4.MTG.CDLO.G0355V00 


DATA 

SET 

700392 

1 

MAGNETIC 

TAPE 

3400 



PRD&4.MTG.C0L0.G0354V00 

i- 

DATA 

SET 

703286 

1 

MAGNETIC 

TAPE 

3400 



PR0G4.MT&.C0LO.G0353VQ0 


DATA 

SET 

722067 

1 

MAGNETIC 

TAPE 

3400 - 

— 

- ---- 

PRDG4.MTG.COLO.G0352VOO 

! 

DATA 

SET 

707867 

1 

MAGNETIC 

TAPE 

340© 



PRDG4.MT&.C0L0.G0351VC0 


DATA 

SET 

722274 

1 

MAGNETIC 

TAPE 

, 3400 



PRDG4.MT&.C0SDUL. - 

t 

GENR 

PTR 



MAX= 8 


CURRENT® 

8 

NEITHER 

PRDG4.MT&.COSDUL.GO6OOVQ0 


DATA 

SET 

720701 

1 

MAGNETIC 

TAPE 

3400 
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, INFORMATION SYSTEMS DEVELOPMENT TRAINING PROGRAM 

SECTION 1 ~ GENERAL 


1. OBJECTIVE 

1*1 The availability of training material and policies concerning training 
differ throughout the Switching Division. This chapter heading has 
been provided to allow each resident organization to provide such training 
information as they deem desirable within the structure of this manual. 
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W 


1. USAGE MEASUREMENT 


1.1 


Use of the facilities of the Warrenville Data Center 
ASP/VS network, via central or remote input readers, 
is measured by quantities derived and reported using the 
facilities of the Operating Systeia's System Measurement Facility 
(SMF) and the Quantitative Computer Management System (QCM). 

l-ll VS/CPU TIME 

The time. In seconds, the Central Processing Unit is 
dedicated to the processing of a Job. The standard 
measure is 370/168 VS/CPU time. 

1.12 I/O TIME 

The time, in seconds, an I/O Channel is dedicated to 
the control and movement of data associated with a Job. 

1-13 UNIT RECORDS »» LOCAL 

The total number of cards read, cards punched and 
lines printed for a job utilizing the input/output 
service at the central site (Warrenville). 

UNIT RECORDS ^ REMOTE 

The total number of cards read, cards punched and 
lines printed for a Job utilizing the teleproeessing 
facilities and the input/output service at a remote site. All 
service charges associated with this resource are determined 
Jay the remote sites. 

1.2 In addition to OS/SMF and QQM data dsscribed in 

paragraph 1.1, three additional quantities are used 
to calculate a run cost for each Job. These quantities are 
obtained by converting station log and time sheet data into 
SMF records. 




w 


Reason for reissue; 


As indicated; and former paragraph 1.13» 
"CORE ALLOCATION", deleted. 
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1.21 KEYSTROKES - GCS 

The number of keystrokes required to enter data 
into the Data Entry System, 

1.22 MAN HOURS 

The time, in hours and minutes, charged by ISD 
personnel to a project number. 

1-23 TRANSTIME 

The time, in hours, minutes, and seconds, to 
receive/transmit a tape via Honeywell transmission 
facilities . 

2. JOB COSTS 

2.1 The usage data compiled by VS/SMF is periodically 
processed using the QCM programs to summarize computer 

usage by job, programmer, run type and project code. A run 
cost is calculated for each job as follows: 

JOB RUN COST = (CPU TIME x CPU TIME LOAD RATE) 

+ (I/O TIME X I/O TIME LOAD RATE) 

+ (LOCAL UNIT RECORDS x LOCAL UNIT RECORD LOAD RATE) 
+ (DATA ENTRY KEYSTROKES x DATA ENTRY LOAD RATE) 

+ (MAN HOURS X ISD LOAD RATE) 

+ (TRANSMISSION TIME x TRANSMISSION LOAD RATE) 

2.2 The Job Run Cost reported on the Warrenville Data Center 
Computer Usage Report does not include a cost for UNIT 

RECORD - REMOTE. However, this factor should be included 
in estimations of job run costs since this load rate is 
determined and applied at each remote operation. 

3. LOAD RATE TABLE 

3.1 The load rates applied in the Job Run Cost formula of 
paragraph 2.1 and referenced in 2,2 are determined 
periodically by the Divisional Accounting, Results and 
Project Accounting Organization, Department 9413i Warrenville. 

The current load rates, which can be used for calculating 
Job Run Cost estimates are listed in Exhibit A. 


Reason for reissue: CORE ALLOCATION deleted from Job Run 

Cost formula in paragraph 2.1. 
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LOAD RATE TABLE 
FOR DETERMINING JOB RUN COST 








.y 




1. HARDWARE LOAD RATES, 


1.1 August. 1973 thru March. 1974 


CPU 

I/O 

MBS 

U/R - Warrenville 

GCS - Data Entry System 

Honeywell Transmission 

1.2 April and May. 1974 

CPU 

I/O 

MBS 

U/R - Warrenville 

GCS - Data Entry System 

Honeywell Transmission 

1.3 June. 1974 

CPU 

I/O 

MBS 

U/R - Warrenville 

GCS - Data Entry System 

Honeywell Transmission 

1 July. 1974 

CPU 

I/O 

MBS 

U/R Warrenville 

GCS - Data Entry System 

Honeywell Transmission 


$.054/IBM 370/155 CPU Sec 
$.0445/1/0 Sec. 

$.09/IBM 370/155 MEGB Sec 
$.002/Unit Record 
$. 00028 /Keystroke 
$. 01305 /Sec. 


$.054/IBM 370/155 CPU Sec. 
$. 032 / 1/0 Sec. 

$.063/IBM 370/155 MEGB Sec 
$.002/Unit Record 
$.00019/Keystroke 
$.11/Sec. 


$.059/IBM 370/155 CPU Sec. 
$. 035 / 1/0 Sec. 

$.069/IBM 370/155 MEGB Sec. 
$.00335/Unit Record 
$. 00019 /Keystroke 
$.11/Sec. 


$.141/IBM 370/168 CPU Sec. 
$. 032 / 1/0 Sec. 

$.063/IBM 370/155 MEGB Sec 
$.002/Unlt Record 
$.00019/Keystroke 
$.11/Sec. 


1.5 August. 1974 thru December 29. 1974 


CPU 

I/O 

MBS 

U/R - Warrenville 

GCS - Data Entry System 

Honeywell Transmission 


$.216/IBM 370/168 CPU Sec. 

$. 032 / 1/0 Sec. 

$.089/IBM 370/168 MEGB Sec 
$.002/0nit Record 
$.000 19 /Keysbroke 
$.11/Sec. 
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1,6 December 30. 1974 thru December 26 , 1975 


CPU 

I/O 

MBS 

U/R - Warrenville 


GCS - Data Entry System 
Honeywell Transmission 


$.167/IBM 370/168 CPU Sec. 
$. 033/1/0 Sec . 

$.067/IBM 370/168 MEGB Sec. 
$.0017/Unit Record 
$.00042/Keystroke 
$.1072/Sec. 


1.7 Current ~ Effective December 29. 1975 


VS/CPU 

I/O 

U/R - Warrenville 
GCS - Key Data Entry 
Honeywell Transmission 


$.164/IBM 370/168 VS/CPU Sec. 
$.032/1/0 Sec . 

$.0018/Unit Record 
$.00037/Keystroke 
$.1351/Sec. 


1.8 Unit Record - Remote 1975 _ 1976 


(Per Unit Record) 





Canal Street 


$.002037 


N/A 

Columbia River 

- 

$.004172 

- 

N/A 

Columbus 

- 

$.002767 


$.001840 

Dallas 

- 

$.003003 

- 

$.002018 

Hawthorne/Merch. 


$.002090 

- 

$.002230 

Hawthorne Works 


$.001830 

- 

$.001293 

Indian Hill 

- 

$.001500 

- 

$.001400 

Lisle 


$.001703 

- 

$.002646 

Montgomery 

- 

$.002988 

- 

$.002549 

Oklahoma City 

“ 

$.002837 

- 

$.002260 

Omaha 

- 

$.003365 

- 

$.002480 


1.9 On-Line System Load Rates 

1‘91 MITS - Effective January 1. 1975 - Current 

Terminal Connect Time - $2.50/hour 

Monthly Permanent Storage - $.11/PSR 
Peripheral Tape/Print - $1.95/1000 lines 

1•92 CALL/OS - Effective December 29. 1975 


Connect Time 
CPU Time 
Monthly Storage 


$6.50/Connect Hour 
$.19/IBM 360/65 CPU Sec. 
$1.40/halftrack storage 


1*93 TSO - Effective December 29. 1975 

Connect Time - $6.50/Connect Hour 

CPU Time - $.3095/IBM 370/168 VS/CPU sec. 

I/O Time - $. 0608/1/0 sec . 



1 
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;D load rate for determining job run COST. 


2.1 The hourly load rate for all 9400 ISD personnel is 
as follows : 


1973 - $15.25 

1974 - $17.84 

1975 - $19.04 

1976 - $23.51 


2.2 The Security Accrual percentage for 1976 is 28.4$. 


3. MAGNETIC TAPE PROCESSING CHARGES FOR DISPOSITION OF TAPES 
OUTSIDE WARRENVILLE. 



3.1 A charge is issued for each magnetic tape processed for 
disposition outside Warrenville (Division 2, Chapter 6, 
Section 7). 


3.2 The rate per copy is as follows: 

1976 - $18.80 effective 12/29/75 






D. L. MATHir> 7736 
N. ILL. WORKS 


DISTRIBUTE TO HOLDERS OF 
WARHENVILLE DATA CENTER 
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IMS ON-LINE STANDARDS AND REFERENCE 


IMS DC SYSTEM OVERVIEW 
SECTION 1 - GENERAL 


PREFACE 



Division 5 of the PROGRAMMING S & R MANUAL pertains to 
On-line IMS Systems. The distribution of this division^ except 
for Chapter 1, Section 1, is controlled at a locational level 
by a designated Location Co-ordinator. The Location Co-ordinators 
are listed below: 


1. 

CEC 

- 

E. 

w. 

Do van 

- 

13444 

2. 

Columbus 

- 

D. 

L. 

Cross 

- 

9441 

3. 

Dallas 

- 

R. 

M. 

McCauley 

- 

9471 

4. 

Indian Hill 

- 

J. 

R. 

Malleck 

- 

7124 

5. 

Indianapolis 

- 

J. 

E. 

Eller 

- 

218 

6. 

Lisle 

- 

J, 

F. 

Tvrdik 

- 

9435 

7. 

Montgomery 

- 

R. 

H, 

Patterson 

- 

6323 

8. 

Oklahoma City 

- 

C. 

D, 

Emerson 

- 

9460 

9. 

Omaha 

- 

F. 

H. 

Garey 

- 

9451 

10. 

Warrenvllle 

- 

E. 

F. 

Nassiff 

- 

9412 



In order to receive documentation of the entire division^ the 
User must contact his respective Location Co-ordinator, 

Communications concerning On-line IMS Systems at a Divisional 
level should be directed to the On-line Systems Co-ordinator> 
Dept. 9412, Warrenville. 
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!• GENERAL 

1.1 The Warrenville Data Center currently supports the 
generalized IBM Information Management System (IMS) 

for the control of appllcatlon~orlented on-line systems, 

IMS provides two basic features: 

1.11 Data Language/I (DLI) - Is a data management facility 
that assists In the creation and maintenance of 

hierarchical data base structures which may be used In the 
on-line environment, 

1.12 Data Communication (DC) - Is a teleprocessing 
monitor that supports message communication between 

the application system, data bases, and a number of supported 
remote and/or local terminals, 

1.2 This documentation pertains to those application systems 
which are controlled by the Data Communication facility 

of IMS (IMS DC), Even though strictly batch-oriented 
systems using DLI are not directly covered by this documentation 
it would be prudent for the designer, who later intends to 
introduce his system to the IMS DC System, to follow the 
standards outlined in this document, 

1.3 IMS currently runs with OS under Release 2.A,1 and Is 
available In the following periods of time: 

1.31 IMS DC Production Schedule 

Monday through Friday, 7:00 a,m, to 11:00 p.ra,(WDC time 

1.32 IMS DC Test Schedule 

Upon request only, generally Monday through 
Friday 5:30 a,m, to 6:30 a.m. (WDC time). 

The Location Co-ordinator must make the request to the 
IMS Master Terminal Operator (MTO) by 4:00 p,m, (WDC time) 
on the preceding day. 


2 . 


Division 5 Chapter 1 
Section 1 

Issue 2 Date 07/01/75 




TO ALL HOLDERS OF THE WDC PROGRAMMING S & R MANUAL 

Re: Proposed Computer Assisted Restart/Recovery Standards 

The standards for using the Computer Assisted Restart/Recovery 
System are presented here for your consideration and comment. 

Your vrritten comment should be submitted before August 23, 1976, 
to the Data Administration Department 9412, attention Mr. D. Cowan. 
A final version of the standards will be prepared after considera¬ 
tion of the comments received, for entry in the WDC Programming 
Standards and Reference Manual. 




CO 

a 

t> 

CO 
J-H CC 

cn o 
C ' B: 

S. . 

-d 
• J 

•—3 f—I 


IMPORTANT : Division 5 - Data Management and Administration will 
replace Division 5 - IMS DC Standards; the current contents of 
Division 5 will be placed in Chapters within the new Division 5. 
This replacement is not effective immediately, and the current 
Division 5 should not be discarded at this point in time. 




D. K. COWAN - 9412 
Divisional Data Administration 



Western Electric Company Division 5 Chapter 5 

Warrenville Data Center 1. Section 2 

PROGRAMMING S & R MANUAL Issue 1 Date: 



DIVISION 5 - DATA MANAGEMENT AND ADMINISTRATION 
CHAPTER 5 - DATA INTEGRITY 

SECTION 2 - COMPUTER ASSISTED RESTART/RECOVERY FACILITIES 


general 

1.1 The CRR (Computer Assisted Restart/Recovery) System is designed 
as an augment to the IMS (Information Management System) restart/ 

recovery facilities as they are distributed by IBM. CRR contains 
facilities which are both integrated into the IMS control region and 
executed as independent batch programs. The modifications to IMS control 
region code necessary to incorporate CRR are minimal and limited to only 
two modules (DFSFLOGO and DFSFLOSO). CRR capabilities lie mainly in four 
areas: 

1.2 Information Ledgering. Information on three components of an IMS 
system (job, database, and log tape) is stored in a number of VS 

datasets termed ’’ledgers". These datasets are updated dynamically to 
reflect a change in the status of a component of any functioning IMS System 
(this includes the on-line control region as well as batch jobs). 

1.3 Status Tracking. As data based system execution pro¬ 
gresses, component status is recorded in three ways: 

LEDGER - The status field of the proper ledger entry 
is changed. 

DISPLAY - A message identifying the component and its new 
status is written to the SYSMSG dataset, the ASP 
Master Console, and the ASP Master Log. 

TRACE - A copy of the new ledger entry is recorded on 

a special trace dataset for reference and ledger 
recovery. 

Using these three facilities, the status of any component at any 
point in time can be easily determined. 

1.4 Data Base Integrity. By checking component status in the 
ledgers, CRR is able to prevent inadvertent improper ref¬ 
erence to a data base. CRR forces a proper sequence of activities 
before data base access is allowed. These activities include log 
tape correction, data base backout, and data base recovery. 

1.5 Batch Job Recovery. CRR facilitates the restart of IMS 
batch jobs by automatically invoking procedures when 

required for log tape correction and data base backout. CRR 
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performs these functions to correct for system as well as 
application program failure. Any job which executes only one 
IMS data base updating program can be restarted from the beginning. 

2. THE CRR LEDGERS 

2.1 There are eight ledger data sets which contain job, data 
base and log tape information. Their content is shown here, 

including any special display characters. (See Par. 3 below for 
status codes.) 

2.2 Job ledger contains the following information on IMS batch 
jobs and IMS on-line control region: 

JOBNAME 

* STATUS * 

C- M COMPLETION CODE 
P- PSB NAME 

T- DATE-TIME (YYDDD HHMM) APPL PROGRAM EXECUTION LAST STARTED 
OR STOPPED 

2.3 DBD ledger contains the following information on IMS data bases: 
DBDNAME 

* STATUS * 

J- JOBNAME OF JOB WHICH LAST REFERENCED THE DATA BASE 

M- BACKUP MODE ('FD' = FAST DUMP, 'IC' = IMAGE COPY) 

I- USERID AS IT SHOULD APPEAR ON ANY RECOVERY JOB CARDS 

C- CASECODE AS IT SHOULD APPEAR ON ANY RECOVERY JOB CARDS 

D- DATE-TIME (YYDDD HHMM) LAST BACKUP WAS TAKEN 

0- DATE-TIME (YYDDD HHMM) DATABASE WAS LAST MADE OFF-LINE 
TO THE IMS ON-LINE CONTROL REGION 

2.H Log Ledger contains information on IMS batch and on-line 
control region log tapes: 

VOLSER 




* STATUS * 
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J- JOBNAME OF JOB WHICH CREATED THE TAPE 
Y- TYPE ('NORMAL', 'BACKOUT', 'INVALID') 

S- VOLUME SEQUENCE NUMBER 

T- DATE-TIME (YYDDD HHMM) TAPE WAS LAST OPENED OR CLOSED 

2.5 Merged Log Ledger contains information on the merged log tapes 
created daily by Warrenville Operations. The format is the same 

as that of the Log Ledger. 

2.6 Job-Data Base Ledger contains the name of each data base 
referenced by a job in the following format: 

JOBNAME (TYPE) WHERE TYPE IS EITHER 'UPDATE' OR 'INQUIRY' 

2.7 Data Base-Job Ledger contains the PSI of each system which 
updates the data base in the following format: 


2.8 Data Base-Data Set Ledger contains the following information on 
the data sets which make up a data base: 

DDNAME 

DSNAME 

DSNAME USED FOR BACKUP CATALOGING 

2.9 Trace Ledger contains a record of all ledger changes in the 
following format: 

TYPE TRACE RECORD TYPE (CURRENTLY ONLY'WRS') 

MODULE - ID OF CRR MODULE WHICH INVOKED THE CHANGE 

FUNCTION - ID OF CRH READ/WRITE MODULE FUNCTIONAL FOR 

MAKING THE CHANGE (FIRST CHARACTER INDICATES 
LEDGER TYPE: 'j' = JOB, 'D' = DATA BASE, 

'L' = LOG, 'M' = MERGED LOG - THESE ARE THE 
ONLY LEDGERS WHICH ARE DYNAMICALLY UPDATED) 

(THIRD CHARACTER INDICATES CHANGE TYPE: 

'A' = ADDED, 'R' = REPLACED) 


DATE 

- DATE RECORD 

WAS 

WRITTEN 

(YYDDD) 

TIME 

- TIME RECORD 

WAS 

WRITTEN 

(HHMM) 

RECORD 

- IMAGE OF THE 

LEDGER CHANGED RECORD 
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3. COMPONENT STATUS 

S.f The status of job, data base, and log components can take on 
the following values: 

3.2 Job Status: 

COMPLETE - APPLICATION PROGRAM EXECUTION HAS COMPLETED 
NORMALLY 



FAILED - APPLICATION PROGRAM EXECUTION HAS ABENDED 

(NOTE - SYSTEM FAILURES WILL NOT CAUSE A JOB STATUS 
OF FAILED) 


INQUIRY - APPLICATION PROGRAM EXECUTION HAS BEGUN BUT NO 
LOG TAPE DATA SET HAS BEEN OPENED 


UPDATE - APPLICATION PROGRAM EXECUTION HAS BEGUN AND A 
LOG TAPE DATA SET HAS BEEN OPENED 


3.3 Data Base Status: 


CLOSED - DATA BASE IS NOT CURRENTLY BEING ACCESSED 


INQUIRY - AN APPLICATION PROGRAM WHICH REFERENCES THE DATA 
BASE IN AN INQUIRY MODE HAS BEGUN EXECUTION 

UPDATE - APPLICATION PROGRAM EXECUTION HAS BEGUN AND A 
LOG TAPE DATA SET HAS BEEN OPENED 

3.4 Log Status: 

CLOSED - TAPE HAS BEEN OPENED AND CLOSED SUCCESSFULLY 

OPEN - TAPE HAS BEEN OPENED BUT NOT YET CLOSED 
SUCCESSFULLY 

BATCH JOB PHASES 

4.7 There are ten CRR phases that a CRR supported batch job 
passes through during execution. They are: 

LOG TAPE VALIDATION 
DATA BASE VALIDATION 
EXECUTION PRE-PROCESSING 

APPLICATION PROGRAM EXECUTION - LOG TAPE OPEN 
APPLICATION PROGRAM EXECUTION - LOG TAPE OEV 
APPLICATION PROGRAM EXECUTION - LOG TAPE CLOSE 
APPLICATION PROGRAM EXECUTION - ABNORMAL TERMINATION 
EXECUTION POST-PROCESSING 
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LOG TAPE VALIDATION 
DATA BASE VALIDATION 

4.2 The log tape and data base validation phases ahead of execution 
pre-processing will correct for system failures, those behind 
execution post-processing for program failures. A descrip¬ 
tion of each phase is given below: 

4.21 Log Tape Validation. The log tape validation phases are 
responsible for ensuring the integrity of IMS log tapes 

created by the job. If a system failure, log tape I/O error, or job cancel 
occurs after a log tape has been opened and before it has been closed, that 
tape cannot be used for data base restoration. Therefore, if a log tape 
with an 'open' status is detected, log tape verification will invoke a 
program to copy the contents of that tape to a new tape, closing the new 
tape properly and replacing the volume serial number of the old tape with 
the volume serial number of the new tape in the log ledger. Log tape 
verification is also responsible for cataloging the volume serial numbers 
of any log tapes which will be required in the data base validation phase. 

4.22 Data Base Validation. The data base validation phases 
are responsible for ensuring the integrity of all data 

bases referenced by the job. A failure during application program 
executing may create iracomplete results on data bases being referenced in 
the update mode. Therefore, if it is detected that an update program has 
been interrupted during execution, the IMS data base backout utility will 
be invoked to restore all update mode data bases to their status prior to 
the beginning of execution of the interrupted program. (Note - the backout 
utility will not be invoked unless a log tape was actually opened.) 

4.23 Application Program Pre-Processing. This phase is 
responsible for ensuring that the application program 

does not begin execution until the status of any data base the job 
references is satisfactory. Execution will be prevented in any of the 
following circumstances: 

- THE STATUS OF THE JOB IS UPDATE 


- THE STATUS OF ANY DATA BASE TO BE REFERENCED 
BY THE JOB IS NOT 'CLOSED' AND THE JOBNAME 
OF THE JOB TO LAST REFERENCE THE DATA BASE 
DOES NOT MATCH THE JOB NAME OF THE CURRENT JOB 


If all tests are passed, the status of the job is changed to 
inquiry and application program execution is allowed to begin. 

4.24 Application Program Execution - Log Tape Open. When a 
DD statement with the DDNAME lEFRDER is included in the 
execution step of the job (without a dummy specification) a log 
tape will be opened by the IMS control region. During this open 
processing, CRR modules are invoked to perform two functions: 
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- CREATE AN ENTRY IN THE LOG LEDGER FOR THE LOG 
TAPE WITH A STATUS OF 'OPEN' 

- CHANGE THE STATUS OF THE JOB LEDGER ENTRY 
FOR THE JOB TO 'UPDATE' 

4.25 Application Program Execution - Log Tape EOV. When 

enough log records have been written to fill a log tape, 
the IMS control region performs a volume change. After the 
change has taken place, CRR modules are invoked to: 

- CHANGE THE STATUS OF THE LOG LEDGER ENTRY 
FOR THE OLD TAPE TO 'CLOSED' 

- CREATE AN ENTRY IN THE LOG LEDGER FOR 
THE NEW TAPE WITH A STATUS OF 'OPEN' 

4.25 Application Program Execution - Log Tape Close. When 
the application program completes processing, if a log 
tape has been opened, the IMS control region will perform a 
close. After close processing, CRR modules are invoked to: 

- CHANGE THE STATUS OF THE LOG LEDGER ENTRY 
FOR THE CLOSED LOG TAPE TO 'CLOSED' 

- CHANGE THE STATUS OF THE JOB LEDGER ENTRY 
FOR THE JOB TO 'INQUIRY' 

4.27 Application Program Execution - Abnormal Termination 

Processing. When an application program abends, an IMS 
STAE EXIT receives control and attempts to close a log tape 
should one be open. If this close is successful, CRR modules 
are invoked to: 


' r 





- CHANGE THE STATUS OF THE LOG LEDGER ENTRY 
FOR THE CLOSED LOG TAPE TO 'CLOSED' 


4.25 Execution Post~Processing. If the application program 
terminates successfully, CRR modules are invoked to: 

- CHANGE THE STATUS OF THE JOB LEDGER ENTRY FOR 
THE JOB TO 'COMPLETE' 

- CHANGE THE STATUS OF THE DATA BASE LEDGER 
ENTRIES FOR ALL DATA BASES REFERENCED TO 
'CLOSED' 


; ) 
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DIVISION 5 - DATA MANAGEMENT AND ADMINISTRATION 
CHAPTER 5 - DATA INTEGRITY 

SECTION 3 - COMPUTER ASSISTED RESTART/RECOVERY FACILITIES AND 
JCL REQUIREMENTS FOR IMS BATCH JOBS 


FACILITIES 

1.1 The Computer Assisted Restart/Recovery System (CRR) provides the 
following facilities for IMS batch JOBs: 

1.11 Protection against concurrent update of application data bases. 

The status of each application data base is maintained by CRR 

on a VS data set. This status is dynamically changed to reflect update and 
inquiry access by IMS batch JOBs and the IMS on-line control region 
(PRODIMS). If an IMS batch JOB attempts to access a data base which is 
currently being updated by another batch JOB or PRODIMS, that JOB will be 
abended by CRR before any data base access is attempted. 

1.12 Log tape tracking, validation and consolidation. Information 
about all IMS log tapes is recorded by CRR on a VS data set 

when the log tapes are opened by an IMS control region (both batch and on¬ 
line). CRR modules invoked during batch JOB processing check the validity 
of previously created log tapes and, if necessary, copy log data from the 
"bad” tape to a new "good" tape. Also, on a daily basis, data from all log 
tapes created during the previous days processing is consolidated onto a 
"merged log" tape. These merged logs are stored in the Warrenville Tape 
Library for an extended period of time to be referenced for data base 
recoveries. 

1.13 Dynamically invoked DB BACKOUT. The IMS DB BACKOUT utility is 
designed to reverse the effect of changes made to data bases 

by an IMS application program. Where a batch IMS update program fails, CRR 
modules (executed before and after application program execution) will 
automatically invoke the DB BACKOUT utility. Therefore, only in situations 
where DB BACKOUT will not work (e.g. I/O errors) must a full DB recovery be 
processed to recover from program failure. 

2. JCL REQUIREMENTS 

2.1 For recovery purposes, IMS batch JOBs are considered in one of 
categories: 1) those in which IMS data bases are updated by 
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(one) application program within the JOB and 2) those in which IMS data 
bases are accessed but not updated (inquiry) by (one or more) application 
programs within the JOB. 

2.2 Update JOB JCL requirements. The following JCL is 

required for the inclusion of CRR in an IMS data base 
update production job: 


I^EF. SEC. 

//JOBNAMEX JOB —- ^.201 

//CRRUPRE EXEC CRRUPRE, 2.202 

// J0B=JOBNAMEX, 2.203 

// RETPDrlO 2,20^1 

//DBPR0C1.FORCE DD DUMMY 2.205 


(APPLICATION DB DD STATEMENTS) 2.206 


// EXEC (APPL. PROG/PROC EXEC STMT) 2.207 

//STEPLIB DD DSN=SYS2.CRR.L0ADLIB,DISP=SHR 2.20b 

// DD (APPLICATION PROGRAM EXECUTION 2.209 

LIBRARIES) 

//lEFRDER DD DSN=SYS2.CRR.IMSLT.JOBNAMEX, 2.210 

// UNIT=(TAPE,,DEFER),DISPr(NEW,KEEP), 

// LABEL=RETPD=10, 

// DCB=(RECFM=VBS,BLKSIZE=3965,LRECL=396M,BUFN0=2) 

//DFSVSAMP DD DSN=SYS1.CONTROL(CRRLTWA),DISP=SHR ^.211 


//JOBLEDGR 

//DBDLEDGR 

//LOGLEDGR 

//JDBLEDGR 

//DBJLEDGR 

//DBSLEDGR 

//TRALEDGR 


DD DSN =SYS2.CRR.IMSDS.JOBLEDGR,DISP=SHR 
DD DSN=SYS2.CRR.IMSDS.DBDLEDGR,DISP=SHR 
DD DSN=SYS2.CRR.IMSDS.LOGLEDGR,DISP=SHR 
DD DSN=SYS2.CRR.IMSDS.JOBLEDGR,DISPrSHR 
DD DSN=SYS2.CRR.IMSDS.DBJLEDGR,DISP=SHR 
DD DSN=SYS2.CRR.IMSDS.DBSLEDGR,DISP=SHR 
DD DSN=SYS2.CRH.IMSDS.TRALEDGR,DISP = SHR 


2.212 


(APPLICATION 


PROGRAM EXECUTION DD STATEMENTS) 


//CRRUPOST EXEC CRRUPOST,J0B=J0BNAMEX,RETPD=10 2.213 

//DBPR0C2.FORCE DD DUMMY 
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(APPLICATION DB DD STATEMENTS) 


2.201 The name of the JOB (JOBNAMEX) is used by CRR to identify 

log tapes. , 

2.202 The CRRUPRE (update pre-processing) cataloged 
procedure contains JCL to execute CRR programs for 

log tape validation, data base validation and application pro¬ 
gram preprocessing (see CRR Concepts and Facilities). 

2.203 The JOBNAME parameter is necessary for substitution 
into the log tape data set name. 

2.204 The log tape retention period used should be 
consistent throughout the JOB. It indicates the 

number of days the JOBs log tapes will remain assigned in the 
Tape Library System. 

2.205 This statement is used for forcing DD statement 
additions to the proper step. 

2.206 These should match the data base DD statements 
included in the DB update step. 

2.207 More than one application program may be executed, 
but there may be only one DB update program and it 

must be the last program executed (before CRRUPOST). 

2.206 The CRR load library must be concatenated ahead of... 
and 

2.209 any other load libraries referenced. 

2.210 The log tape data set created during DB update must 
have a data set name in the format shown and DD 

parameters as shown. 

2.211 The log tape write ahead (LTWA) feature of IMS must 
be used to assure that DB updates are recorded 

on the log tape before any DB is actually changed. The LTWA 
feature is invoked with the DD statement shown. 


2.212 One DD statement for each CRR data set must be 
included in the application update step. 
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2.213 The CRRUPOST (update post-processing) cataloged 

procedure contains JCL to execute CRR programs for 
log tape validation, data base validation and application pro 
gram post-processing (see CRR Concepts and Facilities). 

2.2 Inquiry JOB JCL requirements. The following JCL is 
required for the inclusion of CRR in an IMS data base 
inquiry production JOB: 


//JOBNAMEY JOB 
//CRRIPRE EXEC 
// EXEC 


CRRIPRE 

(APPLICATION PROGRAM/PROCEDURE EXEC STMT) 


lEF. SEC, 
2.301 
2.302 
2.303 



(APPLICATION PROGRAM EXECUTION DD STATEMENTS) 


//CRRIPOST EXEC CRRIPOST 2.304 

// 

2.301 Although no log tapes are created in an inquiry JOB, the 
JOB name is still used by CRR modules for JOB and DB 

status tracking. 

2.302 The CRRIPRE (inquiry pre-processing) cataloged procedure 
contains JCL to execute CRR programs for application 

program pre-processing. 

2.303 One or more application inquiry programs may be executed. 

2.304 The CRRIPOST (inquiry post-processing) cataloged procedure 
contains JCL to execute CRR programs for application program 

program post-processing. 




COPY FOR COMMENT FROM 7-19-76 TO 8-23-76 




Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


Division 5 Chapter 5 
Section A 
Issue 1 Date: 


DIVISION 5 - DATA MANAGEMENT AND ADMINISTRATION 
CHAPTER 5 - DATA INTEGRITY 

SECTION H - COMPUTER ASSISTED RESTART/RECOVERY UTILITIES 


1. GENERAL 

1.1 CHR utilities are provided to display CRR LEDGER contents, 
modify CRR LEDGER entries and generate JCL (Job Control 

Language) for the execution of IMS and CRR programs. These utilities are 
intended for use by Data Administration personnel responsible for 
performing data base restart/recovery procedures and require a knowledge of 
CRR and IMS restart/recovery facilities. 

1.2 This section provides a description of the circumstances in 
whicn to use CRR utilities. See Division 3, Chapter 5 for 

details on the cataloged procedures used to invoke these utilities. 

1.3 The following is a summary of the CRR utilities available. 

DIVISION 3 
CHAPTER 5 
SECTION 1 


UTILITY 

PROC-NAME 

APPENDIX 

Partitioned Data Set Ledger List 

CRRPLIST 

CC 

Direct Data Set Ledger List 

CRRDLIST 

CD 

Backup Processing 

CRRBKUP 

CE 

Log Tape Termination 


CF 

Backup Reset 

CRRBAR 

CG 

Job Reset 

CRRJAR 

CH 

Recovery JCL Generation 

CRRRECV 

Cl 


2. LEDGER DISPLAY 

2.1 General. The CHR LEDGER data sets are of two types: 
direct and partitioned. Two cataloged procedures, one 

for each data set type, are available for listing the contents 
of CRR LEDGERS. 

2.2 LEDGER data set names are as follows: 


LEDGER 


DATA SET NAMES 


JOB 

JOB-DATA BASE 
DATA BASE 
DATA BASE-JOB 


SYS2.CRR.IMSDS.JOBLEDGER 
SYS2.CRR.IMSDS.JDBLEDGER 
SyS2.CRR.IMSDS.DBDLEDGER 
SYS2.CRR.IMSDS.DBJLEDGER 
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DATA BASE-DATA SET P 
LOG D 
MERGED LOG D 
TRACE D 


SYS2.CRR.IMSDS.DBSLEDGER 
SYS2.CRR.IMSDS.LOGLEDGER 
SYS2.CRR.IMSDS.MLGLEDGER 
SYS2.CRR.IMSDS.TRALEDGEK 


2.3 Partitioned data set LEDGER display. Partitioned data set 
LEDGER can be displayed using the cataloged procedure 

CRRPLIST (see Div. 3, Chap. 5, Sect. 1, App. CC). In addition to this 
procedure for batch listing, the ISM data set display facility can be used 
for on-line access to partitioned data set LEDGERS. See Div. 5, Chap. 5, 
Sect. 2, paragraphs 2.2 - 3.4 for an explanation of ledger contents. 

2.4 Direct data set LEDGER display. Direct data set ledgers 
can be displayed using the cataloged procedure CRRDLIST 

(see Div. 3, Chap.5, Sect. 1, App. CD). These LEDGERS can only be 
displayed in a batch mode. 


3. BACKUP PROCESSING 

3.1 The backup processing utility is used to record information 

in CRR ledgers about data base magnetic tape backups for future use 
in data base recovery procedures. 

3.2 This utility snould be executed as the last user 
processing step in each data base backup job: 

//PSIBKUP JOB ... 

//CRRIPRE EXEC CRRIPRE 
DB BACKUP STEP 1 


DB BACKUP STEP M 

//CRRBKUP EXEC CRRBKUP 
//SYSIN DD * 

DBDNAME1 M0DE1 


DBDNAMEn MODEn 
//CRRIPOST EXEC CRRIPOST 

3.9 This utility is invoked using the cataloged procedure 
CRRBKUP (see Div. 3, Chap. 5, Sect. 1, App. CE). 









/ 
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4. LOG TAPE terminati on 

4.1 The log tape termination utility is used to close an IMS 
log tape which has not been successfully closed by normal 

IMS or CRR processing, 

4.2 when to execute. 

4.21 On-line log tapes. This utility is used by WDC operating 
personnel to close all log tapes left unclosed by PRODIMS. 

4.22 Batch log tapes, batch log tapes left unclosed by 
batch IMS code will normally be closed by CRR 

modules invoked in CRR pre and post processing. This utility 
is available for use in terminating batch log tapes in abnormal 
situations; it should, however, be used with discretion. 

4.3 This utility is invoked using the cataloged procedure 
CRRLTAPE (see Div. 3, Chap. 5, Sect. 1, App. CF). 

5- BACKUP RESET 

5.1 The BACKUP RESET utility is used to modify the 
date-time and mode information stored in the Data Base 

LEDGER for an individual data base. 

5.2 This procedure is intended for use where the most recent 
data base backup is physically or logically damaged and 

cannot be used for DB recovery. It should be executed (if 
required) before recovery JCL is generated by the RECOVERY 
JCL GENERATION utility. 

5.3 This utility is invoked using the cataloged procedure 
CRRBAR (see Div. 3, Chap. 5, Sect. 1, App. CG). 

6- JOB/DATA BASE STATUS RESET 

6.1 The JOB/DATA BASE STATUS RESET utility is used to reset the 
status a job and all the data bases it references to 

'COMPLETE' and 'CLOSED' respectively. 

6.2 This procedure is intended to be used only where all normal 
procedures for restoring status have failed or cannot be 

used and the condition of all data bases referenced by the job is valid. 

Use of this procedure should be closely controlled by Data Administration 
personnel; for this reason, a two character code, controlled by Dept. 9412, 
must be supplied on the input. Local Data Administration personnel will be 
made aware of the current code. 

6.3 This utility is invoked using the cataloged procedure CRRJAR 
(see Div. 3, Chap. 5, Sect. 1, App. CH). 
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7• RECOVERY JCL GENERATION 

7.1 The RECOVERY JCL GENERATION utility is used to create Job Control 
Language (JCL) which is in turn executed to perform data base 

restoration and recovery. 

7.2 This utility should be executed as the first phase of data 
base recovery. Using the CRK LEDGERS, the utility generates 

JCL to execute the following programs. 

7.21 DB RESTORE. If the mode of the data base backup is 
'FD', Innovation Data Processing DSF restore JCL is 

generated for each data set comprising the data bases to be restored. If 
the mode of the data base backup is 'IC', no DB restore JCL is generated 
and the Image Copy backup tape(s) are inputted directly to the DB RECOVERY 
program execution (see 7.23 below). 

7.22 CHANGE ACCUMULATION. The generated JCL executes the 
IBM Data Base Change Accumulation Utility (DFSUCUMO) to 

separate data base change records for the data bases to be recovered from 
all other data base change records stored on the IMS log tape input, which 
includes all log tape data for all jobs (including PRODIMS) which updated 
the data bases indicated from the time of the data base backup to be used. 
This constitutes a "standard” log input. If it is desired to only 
partially recover data bases, that is, recover the data bases up to a point 
in time prior to the most recent update, the DD statements for all log 
tapes past the recovery point must be removed from the DFSUCUMO JCL before 
it is executed. These DD statements will be concatenated under the DD name 
DFSULOG. The ability to remove DFSUCUMO input is somewhat limited due to 
the daily merge of IMS log tapes. If a daily merged log tape 
(DSN=SYS2.CRH.IMSML.CRRDAILY) contains the partial recovery point, there is 
no way to separate the appropriate log records. In this event, a 
substitution of individual log tapes for the daily merged log tape must be 
made. This type of recovery should be coordinated by Dept. 9^12. 

7.23 Do RECOVERY. The generated JCL executes the IBM data 
Base Recovery Utility (DFSURDBO) once for each data 

set for each data base to be recovered. It is important to note 
that recovery is accomplished by data set and not by data base, allowing 
individual data sets within a data base to be recovered, possibly reducing 
recovery time. To do this, DFSURDBO steps can be selectively executed, but 
care must be taken to bring all data sets to the same point in time. Note: 
when a partial recovery is being performed, all datasets for the data base 
must be recovered. 

7.3 This utility is invoked using the cataloged procedure 
CRRRECV (see Div. 3, Chap. 5, Sect. 1, App. Cl). The 

output of this procedure is placed on a data set defined by the 
following DD statement: 

//JCL DD SYSOUT=P 
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. ^ 

To punch and print this data set during execution of the 
utility, the i'ollowing JCL is required: 

//PSIRECV JOB 
//^MAIN CARDS=3 
//^FORMAT PR,DDNAMErJCL 
// EXEC CRBHECV 
//EXEC.SYSIN DD * 

DBDNAMEI 



DBDNAMEn 
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DIVISION 5 - DATA MANAGEMENT AND ADMINISTRATION 

CHAPTER 5 - DATA INTEGRITY 

SECTION 5 - COMPUTER ASSISTED RESTART/RECOVERY 
MESSAGES AND CODES 


U GENERAL 

1.1 The Computer Assisted Restart/Recovery system may 

issue the following informational or diagnostic messages 
in the format: 

AAANNN TEXT 

where: 

AAA « Is a three character module id. 

NNN - Is a message sequence number for the module 
named by AAA. 

TEXT - Is the message description. 

2. MESSAGES 



MESSAGE ID 
BAROOl 


BAR002 



BIC001 

BIC002 


BIL001 


MESSAGE TEXT 

The old backup mode specified on the input is 
not the same as the current backup mode on 
the DBD ledger entry. Correct the input and 
rerun. 

The old backup date and time specified on the 
input are not the same as the backup date and 
time on the DBD ledger entry. Correct the 
input and rerun the job. 

There are no log entries in the log ledger. 

The log tape for this job has not been success¬ 
fully closed. 

The log tape for this job has not been success¬ 
fully closed. 



BIL002 


The log volume serial table has exceeded the 
maximum number of entries. 



COPY FOR COMMENT FROM T~19“T6 TO 8-23--T6 



Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


Division 5 Chapter 5 
2 . Section 5 

Issue 1 Date 


MESSAGE ID 


MESSAGE TEXT 



BIL003 

There are no log entries in the log ledger. 


BIL004 

The attempt to catalog a log tape has been 
unsuccessful. 


BOP003 

The job attempting to backout a data base is 
not the job specified in the DBD ledger entry. 


BOPOOU 

The attempted backout of a data base was 
unsuccessful. 

) 

BOP005 

The number of volumes associated with this 
dataset name exceeded the maximum number 
allowed. 


BUP001 

Backup processing of the DBD ledger was 
attempted for a database currently open. 


CIL001 

There are no log entries in the log ledger. 


DBGOOl 

The requested entry could not be found on 
the DBJ ledger. 


DBSOOl 

A job attempted to access a data base which 
has a current status of update. 


DBS002 

A job with update intent attempted to access 
a data base already in update mode for 
another job. 


DBS003 

A job whose intent was not inquiry attempted 
to access a data base already in use in a 
non-inquiry mode. 


DLGOOl 

The requested entry could not be found on the 

DBD ledger. The specified member name can be 
found on the SYSMSG listing. 


DSC001 

The current status on the input does not match 
the current status of the DBD ledger entry 
referenced. Correct the input and rerun. 


DSC002 

An attempt was made to change the status of a 

DBD ledger entry to other than inquiry, update, 
or closed. Correct the input and rerun the job. 


DSG001 

The requested entry could not be found on the 

DBS ledger. 
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MESSAGE ID 


MESSAGE TEXT 


JAR001 


JAR002 


JAR003 


JDB001 


JLG001 


LEU001 


LLL001 


LLL002 


An unauthorized attempt was made to change the 
status of a job ledger entry. 

An unauthorized attempt was made to change the 
status of a job ledger entry. 

The date and time on the input did not match the 
date ana time on the Job ledger entry. Correct 
the input and rerun the job. 

The requested entry could not be found on the 
JDB ledger. 

The requested entry could not be found on the 
job ledger. The specified member name can be 
found on the SYSMSG listing. 

There are no log entries in the log ledger. 

A log tape for this PSI has been found that 
has not been successfully closed. 

A log tape for this PSI has been found that 
is not usable. 


LLP001 


LTP002 


LTP003 


MLUOOI 


An invalid type of operation was requested during 
log ledger processing. 

An unsuccessful link to log tape termination 
was detected during log tape processing. 

There are no log entries in the log ledger. 

The merged log tape volume serial number could 
not be found. 


MLU002 


The merged log volume serial table has exceeded 
the maximum number of entries. 


PRP001 


PRP002 


The job's intended activity for the data base 
referenced could not be allowed at this time. 

See messages DBSOOl, DBS002, and DBS003 for 
possible causes. 

The update status of this job prohibits execution 
at this time. 


RWP010 


The read/write processing program has detected 
an ena of rile condition on the DBD ledger, 


COPY FOR COMMENT FROM 7-19-76 TO 8-23-76 


Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


Division 5 Chapter 5 
14 . Section 5 

Issue 1 Date 


MESSAGE ID 


MESSAGE TEXT 


TRP010 


TTUOOl 


TTU002 


TTU003 


job ledger, log ledger, or mlg ledger when this 
condition should not exist. 

The trace processing program has detected an 
end of file condition on the trace ledger when 
this condition should not exist. 

The volume serial number specified in the input 
could not be found in the log ledger. Correct 
the input and rerun the job. 

The job specified in the input could not be found 
on the job ledger. Correct the input and rerun 
the job. 

An unsuccessful link to log tape termination was 
detected during execution of the log tape term¬ 
ination utility program. 


3. ABEND CODE 


3.1 All CRR abends produce the user abend code 2001. 





I 



COPY FOR COMMENT FROM 7-19-76 TO 8-23-76 



Western Electric Company 
Warrenville Data Center 
PROGRAMMING S & R MANUAL 


129 


Division 3 Chapter 5 
Section 1 Appendix CC 
Issue 1 Date 


1. general 


1.1 This procedure invokes the program WECuPY to list the 

contents of the ledgers which are partitioned data sets 
(JOB, DBD, JOB-DBD, DBD-JOB, DBD-DS LEDGERS). 

2. USING CRRPLIST 


2.1 // EXEC CRRPLIST,LED-P1,MEM=P2 

where: 

LED - three character ID of the 1eager to be listed 

MEM - maximum eight character ID of the entry to be listed 


3.1 //EXEC CKhPLIST,LEDrJOB,MEMsPCCWY020 

This execution will list the job ledger entry for the job 
PCCWY020. 


//CRRPLIST PROC L£V1=SYS2 
//L 1ST EXEC PGM = WECOPY 

//SYSPR INT DD SYS0UT=A 

//SYSUTl DD DSN^&LEVU.CRR.I MSOS. CLEO.LEDGRUMEH) ,DISP=SHR 
//SYSUT2 DD SYSOUT=A 
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CRHDLIST - DIRECT DATA SET LISI 


1 . QK H U&L 

1.1 This procedure invoices the program WECOPI to list the 
contents of the ledgers which are direct data sets 
(LOG, MERGED LOG, and TRACE ledgers). 

2 . 

// EXEC CRRDLiSr,LED=P1,ENTRlESsP2,SKIP=P3 

PI - three cnaracter ID of the ledger to be listed (LOG, 
MLG, TRA) 

P2 «- number of entries to be listed (default is 100) 

P3 - number of entries to be skipped (default is 0) 

3. EXAMPLE OF USE 

// EXEC CRRDLIST,LEDaL0G,KNTRlES=25 

This execution will list the first 25 log ledger entries. 

M. . iel&I I lly. 


//CRRDLIS7 PROC LE V 1=SYS2 ,E NTRi E S=1 00,SKI P=0 
//LIST EXEC PGP-WECOP Y,PARM=( £.E NTRI ES» CSKI P) 
//SYSPR INT DO SYS0UT=A 

//SYSUTl DO DSN=£LEV1.,CRR.IMS0S. SLED. LE0GR,0ISP=SHR 

//SySUT2 DO SYSOUT»A 
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1.1 This procedure invoices the program CRRBUP to change 

the backup mode on the DBD ledger for a given data base. 
It also updates the date and time stamp of the data base 
ledger entry using the current date and time expressed as 
YYDDDMHMM. 


// EXEC CKRBKUP 
//SYSIN DD * 

DBDNaME ^ODE 

DBDNaME - (col. 1) a maximum eight character dbdnams 

is allowed 


MODE 


- (col. 10 ) two character backup mode 


// EXEC CRRBKUr 
/f/SYSiN DD » 

DBDNAMEI FD 

This execution will change the backup mode of data base 
DBDNAME1 to FD and update the date/time stamp of tne ledger 
entry. 


//CRR 8K UP 
//EXEC 
//STEPL IB 
//J08L EOGR 
//DBOL EDGR 
//LOa EDGR 
//J D3LE0GR 
//OBJL EDGR 
//TRALEOGR 
//ML a EDGR 


PROC l-EVl = SYS2 .LIBRARY^* SYS2 .CRR.LOAOLIB' 
EXEC PGM=CRR8UP 
DO DSN=£LI8RAR Y,0I SP=SHR 

DO DSN = £LE VU.CRR.I PSOS, JOBLEDG R ,DI S P=SHR 
DO DSM = ELEVi..CRR.IMSDS.OBDLEDGR,OISP=SHR 
OD osn = elevu.crr.imsos, LGGLEDGR,DISP=SHR 
DO DSN = £;LE Vl,,CRR. IMSOS. JD3LEDGR ,01 SP=SHR 
DD 0 S/SI = CLE VI- .CRR. I MSO S, OB JLEDGR ,01 SP=SHR 
OD DSN = CLE VI.. CRR. IMSOS. TRALEOGR,DISP=S HR 
DD DSN=eLE VU.CRR.I MSO S. MLGLEDGR ,DIS P=SHR 
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CBRLTAPE - LOG TAPE TEHMINATIQN 




1. GENERAL 

1*1 This procedure invokes the program CRRTTU which will 
close the volume named in the input and update the 
log ledger with the new volume inrormation, 

2. USING CRnLTAPE 

// EXEC CKRLTAPE 
//SYSIN DU * 

VOLSEK JOBNAME 

VOLSEK - (coi. 1) volume serial number of the tape 
JOBNAME « (col. 11) name of the job tnat created this tape 

3. EXAMPLE OF USE 

// EXEC CRRLIAFL 
//SYSIN DU « 

700700 LTAPERR 

This execution will copy log tape 700700 created by 
Job LTAPERR to a new volume and update the log ledger. 

«. CATALOUEC PROCEDUME LISTING 






//CRRLTAPE 

// 

//CRPTTU 
//STEPL 18 
//SYSUOUMP 
/ /PR INT 
/ /LOGLEDGR 
//TRALEDGR 
//LOGIN 
// 

// 

//LOGOUT 

// 

// 


PROC L13=' SYS2.CRft',LE Vl=SYS2 tL0G=LCG,LCGLevl=SYS2»LraLT, 
RETPD = 2,J0B=NUL 
EXEC PGM=CKRTTU 
DO D SN = CLIB. .LOADLIB ,DI SP = SHR 
DO SYSOUT=A 
DO SYSaUT=A 

DO D SN = £.LE VI. .CRR. I MSOS. CLOG, LE DGR , D I S P=S H R 

OD DSN^CLEVU. CRR. I MSUS. TRALEDGR >01 SP=SHR 

DD DSN = eLQGLEVI,.CRR.IMSCLT. .CJ08,UNIT = (TAPE,,DEEERJ , 

VnL={ ,RE TAIN, ,,SER = n NPVOL) ) ,DI 5 P= ( OLD, PASS ) , 

DCB^I R6CFM= V8 S,BLKSI ZE=3968 , LREC L=3964 , BU FNO=2 J 
DO 0SN=CLCGLEVI.,CRR. I MSCLT. . C JOB , UNIT=T APE, DIS P= (, PASS), 
VnL = ( .RETAIN) ,LA8EL=RETPD = £RETPD, 

DC8 = ( RECFM= VbS,8LKSI2E=J968 ,LRECL=3964,BUFNQ=2) 
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l.t This procedure is used to reset the date-time and mode 

stored in the data base ledger for an individual data base 
This procedure is Intended to be used when the most recent 
backup is physically damaged and cannot be used by DBD recovery. 
All dates used are in the format YYDDD space HHMM. This field 
is to bytes iq length. 


// IBXEC CRRBAR 
/f/SYSIN DD » 
PBDNAME DM CDT 


PM PDT 


where: 


DBDNAME - 

(col. 

1) 

data base DBD n 

ame 



DM 

(col. 

10) 

current backup 

mode 



CDT - 

(col. 

13) 

current backup 

date¬ 

time 


PM 

(col. 

24) 

previous backup 

mode 

, which 

is to 




replace the cur 

rent 

backup 

mode 

PDT 

(col, 

27) 

previous backup 

date 

-time, 

which is 


to replace the current backup 
date-time 


//{ EXEC CRRBAR 
//SYSIN DD » 

PSIDDBD1 IC 76174 0325 IC 76172 0346 

This execution Will change the backup date-time from 76174 0325 
to 76172 0346 in the data base ledger entry for the data base 
PSIDDBD1. 


//CRRBAR PROC LEV1=SYS2,LI8RARY=•SYS2.CRR 
//EXEC EXEC PGM=CRRBAR 

//STEPL IB DO 0 SN = £;LI 8RAR Y,DI SP = SHR 
//JOBLEDGR DO 0 SN = CLE VI. .CRR. 1 MSD S. JOBLEOGR 
//DBaEDGR 00 D SN^CLE VI. .CKR. I MSO S. DBOLEDGR 
//LOGLEDGR DO 0 SN = CLE Vl. . CR R. I MSO S. LOG LE DG R 
//JCBLEDOi DO DSN=&LE V1.,CRR.1HSDS, JDBLEDGR 
//D3JLEDGR DD D SN= £LE VI. . CRR, I MSO S. D8 JLE DG R 
//TRALEDGR DD 0 SN=CLE V1.,CRR. I MSDS. TRALEDGR 
//MiaEOGR DD DSN = CLEVl..CRR.I«SOS. MLGLEOGR 
//DBSLEOGR do DSN=£.LE V1.,CRR.IMS0S.0BSLE0GR 
//SYSUOUMP 00 SYSOUT=A 


.LOAOLIB* 


,0ISP=SHR 

»DISP=SHR 

,D1SP=SHR 

,OISP=SHR 

,DISP=SHR 

,OISP=SHR 

,0ISP*SHR 

,DJSP»SHR 
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CRRJAR - JOB/DATA BASE STATUS RESET 


1• GENERAL 

1.1 This procedure is used to reset the status of a job 
and all data bases it references to 'COMPLETE* and 
'closed* respectively. This procedure Is intended to be 
used only when all normal procedures for restoring these 
sfcatyses nave failed and the condition of all data bases 
referenced bv the lob are valid. 

2. USING CRRJAR 

U EXEC CRRJAR 

//SYSIN DD » 

JOBNAME DATE-TIME CD 

where: 

JOBNAME - (col. 1) name of the job for which statuses 

are to be reset 

DATE-TIME - (col. 10) YYDDD-HHMM date and time which match 

the date-time on the job ledger entry 
A space is required between YYDDD 
and HHMM. 


CD 


(col. 21) two character code to be supplied by 
the local DBA 


3. EXAMPLE OF USE 


// EXEC CRRJAR 
//SYSIN UD » 

PCCWY020 76158 1^130 WP 


This execution will reset the job and data base statuses for the 
job PCCWY020. 


£AIALQGED PROCEDURE LISTING 


//CRRJAR 

//EXEC 
//STEPL IB 
//JQBLeOGR 
//DBli EDGR 
//LOat' OGR 
//J CBL eOGR 
//OBJLEOGR 
//TRALEOGR 
//MLaEOGR 


PROC LEV1= SYS2.LIBRARY='SYS2.CRR.LOADClB* 

EXEC PGM=CRRJAR 

DD DSN = CLIBRARY,0I SP = SHR 

DO DSN = £LE Vi..CRR. IMSDS, JOBL EDG R ,D I S P=S HR 
00 1} Srj^CLE VI. .CRR. I MSI) S- ODOL E DG R |0I S P=S H R 
DO 0SN = CL6Vl..CRR.IMS0S-LfJGL.e;0GR,DISP=SHR 
DO 0SN-=CLE Vl,.CRR.IMSaS. JOB L£ OG R ,D IS P=S HR 
DD DSN=LLE Vl..CRR.lMSDS.DBJL£DGR,OISP=SHR 
DO DSN = KLE V1..CBR. I MSDS. TRALEDGR ,DISP=SHR 
DO DSN»£LE VI..CRR.IMSDS. MLGLE0GR,D1SP*SHR 
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1*1 This procedure invokes the program CRRRJP tfhich will 
generate recovery JCL for the given DBp names. 


2. USING CRRRECV 


// EXEC CHRRECV 
//E:XEC,SYSIN ,DD » 
DBDNAME 



DBDNAMu, « (col. 1) a maximum of eight characters is 

allowed. Any number of input cards may 
be submitted in a single execution. 



// EXEC CHRRECV 
//EXEC.SYSIN DD * 
DBDNAME1 
D6DNAME2 
DBDNAME3 


This execution will generate the required recovery JCL for 
the data bases DBDNAME1, DBDNAME2, and DBDNAME3. 



//CRRRECV PROC LEV 1 = SYS2,MOD=RJP,LIB='SYS2.CRR.LOADLIB ' 

// EXEC PGM=IEFBR1^I 

//LOGIN DD DSN=&&LOGIN,UNIT=SYSDA,DISP=(NEW,PASS),SPACE=(TRK,10) 

// DCB=(RECFMsF,LRECL=80,BLKSIZEr80) 

//EXEC EXEC PGM=CRR4M0D 

//STEPLIB DD DSNriLIB,DISP=SHR 

//JOBLEDGR DD DSN=&LEV1..CRR.IMSDS.JOBLEDGR,DISP=SHR 
//DBDLEDGR DD DSN=&LEV1..CRR.IMSDS.DBDLEDGR,DISPrSHR 
//LOGLEDGR DD DSN=&LEV1..CRR.IMSDS.LOGLEDGR,DISP=SHR 
//JDBLEDGR DD DSN=4LEV1..CRR.IMSDS.LDBLEDGR,DISPsSHR 
//DBJLEDGR DD DSNr&LEV1..CRR.IMSDS.DBJLEDGR,DISPsSHR 
//TRALEDGR DD DSN=&LEV1..CRR.IMSDS.TRALEDGR,DISPeSHR 
//MLGLEDGR DD DSNs&LEVI..CRR.IMSDS.MLGLEDGR,DISPsSHR 
//DBSLEDGR DD DSN=&LEV1..CRR.IMSDS.DBSLEDGR,DISPsSHR 
//SYSUDUMP DD SYSOUTsA 
//JCL DD SYSOUTsP 

//LOGIN DD DSNr&4L0GIN,DISP=OLD 
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